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1.0 abstract 

THE DIAGNOSTICS FOR THE LA180 PRINTER ARE DESIGNER TO FYERCISE ALL 
AREAS OF THE PRINTER, SIMULATING WORSE CASE CONDITIONS TO DETECT BOTH 
MECHANICAL ANO ELECTRICAL FAULTS, ADDITIONAL FACILITIES WITHIN THE 
DIAGNOSTIC PROGRAM WILL AID IN ISOLATION OF ANY FAULT CONDITIONS 
DETECTED. 

OPERATION OF THE DIAGNOSTIC PROGRAM WILL BE CONTROLLED FROM THE 
PROCESSOR SWITCH RESISTER OR FROM AN AVAILABLE CONSOLE DEVICE. THE 
OPERATOR WXLL BE GIVEN AS MUCH CONTROL OVER THE OPERATION OF THE 
PROGRAM AS POSSIBLE WHILE TRYING TO KEEP THE CONTROL SCHEME SIMPLE. 

THIS DIAGNOSTIC PROGRAM WAS DESIGNED TO RUN IN 4K OR LESS OF MEMORY, 


2,0 REQUIREMENTS 


2.1 EQUIPMENT 

THIS DIAGNOSTIC WAS WRITTEN TO RUN ON ALL MODELS OF THE PDP-8 
PROCESSOR WITH A LA180 PRINTER USING THE STANDARD LA180 PARALLEL 
INTERFACE, THE PROGRAM WILL USE A STANDARD CONSOLE DEVICE, IF 
AVAILABLE, FOR OPERATOR INSTRUCTIONS AND ERROR REPORTING. IT IS 
SUGGESTED THAT A CONSOLE DEVICE BE USED WHEN RUNNING THIS DIAGNOSTIC 
BUT IT IS NOT REQUIRED IF THE CPU HAS A HARDWARE SWITCH REGISTER, IF 
ANY NON-STANDARD IOT CODES APE USED FOR EITHER THE LA180 OR THE 
CONSOLE DEVICE, CHANGE THE IOT CODES AT PTRIOT And IOTSEL BEFORE 
STARTING THE PROGRAM. 

THE DIAGNOSTIC WAS MADE CAPABLE OF RUNNING WITH EITHER OF TWO 
INTERFACES IN JUNE OF 1976. THE FIRST BEING THE STANDARD LA 180 
PARALLEL INTERFACE, ANO THE SECOND BEING THE PDP-8A OPTION BOARD l'S 
12 BIT PARALLEL I/O INTERFACE, 


2,2 STORAGE 

THIS PROGRAM USES MOST OF 4K OF MEMORY WITHOUT AFFFCUNG THE AREA USED 
BY THE BINARY LOADER. 


2.3 PRELIMINARY PROGRAMS 

ALL APPLICABLE POP-08 DIAGNOSTICS SHOULD BE RUN SUCCESSFULLY ON THE 
PROCESSOR. 



3,0 LOADING PROCEDURE * INITIALIZATION 

LOAD THE LAJ80 DIAGNOSTIC PROGRAM FOLLOWING NORMAL PROCEDURES, 

IF A HARDWARE SWITCH REGISTER DOES NOT EXIST OR TO USE THE SOFTWARE 
SWITCH REGISTER CONTROL WHEN A HARDWARE SWITCH REGISTER IS AVAILABLE, 
SET BIT 0 OF LOCATION 21 TO 0 BEFORE STARTING THE DIAGNOSTIC, 
LOCATION 20 will THEN BE USED AS THE SOFTWARE SWITCH REGISTER (SSR). 
MAKE SURE THE SSR IS SET AS DESIRED BEFORE STARTING THE PROGRAM, 
REFER TO SECTION 5,3 FOR A DESCRIPTION OF THE DYNAMIC SSR ROUTINE 
OPERATION. 

IF THE PDP-6A OPTION BOARD t'S 12 BIT PARALLEL I/D INTERFACE IS TO BE 
USED INSTEAD OF THE STANDARD LA180 PARALLEL INTERFACE, SET BIT 1 OF 
LOCATION 21 TO 1 BEFORE STARTING THE DIAGNOSTIC, IF THE PDP-8A OPTION 
BOARD i'S 12 BIT PARALLEL I/O INTERFACE IS TO BE USED, SET SWITCH 
31-9 ON THE PDP*8A OPTION BOARD 1 TO THE "ON” POSITION. 

REFER TO THE TEST AOORESS TABLE IN THE PROGRAM LISTING FOR DETAILS ON 
CHANGING THE PRINTING TEST SEQUENCE OR DELETING TESTS FROM THE 
DIAGNOSTIC. 


4.0 STARTING PROCEDURES 
STARTING ADDRESSESI 

200 ■ GENERAL START! 

RUN OPERATOR INTERVENTION TESTS THEN ENTER PRINTING TEST 
SEQUENCE. 

201 * RESTART: 

ENTER PRINTING TEST SEQUENCE DIRECTLY SKIPPING OPERATOR 
INTERVENTION TESTS. 

202 « GO DIRECTLY TO CONSOLE TERMINAL KEYBOARD CONTROL - SELECT 

TEST. 

STARTING AT 200 WILL RUN THE ENTIRE DIAGNOSTIC PACKAGE. THE PROGRAM 
WILL FIRST EXECUTE THE OPERATOR INTERVENTION TESTS AND THEN ENTER THE 
PRINTING TEST SEQUENCE WHERE IT WILL LOOP CONTINUOUSLY. STARTING AT 
201 CTHE RESTART! WILL SKIP THE OPERATOR INTERVENTION TESTS AND ENTER 
THE PRINTING TEST SEQUENCE DIRECTLY. STARTING AT ?02 WILL CAUSE THE 
PROGRAM TO GO DIRECTLY TO CONSOLE KEYBOARD CONTROL IF A CONSOLE DEVICE 
EXISTS, OTHERWISE, THE PROGRAM WILL HALT WAITING FOR A TEST SELECTION 
FROM THE PROCESSOR SWITCH REGISTER. ALSO, BY PLACING THE HALT AND 
SELECT TEST SWITCH UP C1D BEFORE STARTING THE DIAGNOSTIC, THE 
DIAGNOSTIC WILL HALT WAITING FOR A TEST SELECTION FROM THE PROCESSOR 
SWITCH REGISTER AFT£R INITIALIZATION OF THE PROGRAM. 

TO START THE DIAGNOSTIC PROGRAM; SET THE DESIRED STARTING ADDRESS IN 
THE SWITCH REGISTER AND DEPRESS LOAD ADDRESS, SET THE PROCESSOR SWITCH 
REGISTER OPTIONS AS DESIRED (SEE SECTION 5.1!, AND DEPRESS START. THE 
DIAGNOSTIC PROGRAM WILL NOW RUN IN THE MANNER SELECTED. 
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5,0 OPERATING PROCEDURES 


5,1 SWITCH REGISTER CONTROLS 

THE FOLLOWING, BASIC CONTROL FUNCTIONS ARE AVAILABLE THROUGH THE USE 
OF THE SWITCH REGISTER. 


SWITCH POSITION FUNCTION 


00 1 CUP) 

0 CDWN) 


STOP ON ERROR 
CONTINUE ON ERROR 


01 1 CUP) 

0 COWN) 


INHIBIT ERROR TYPEQUT 
NORMAL OPERATION 


08 1 CUP) 

0 CDWN) 


LOOP ON TEST 
NORMAL OPERATION 


03 1 CUP) 

0 CDWN) 


HALT & SELECT TEST 
NORMAL OPERATION 


04 


MANUAL TIMING - OVERALL 
PRINT SPEED TIMING 


04 1 CUP) 

0 COWN) 


SINGLE CHAR - SCOPE ROUTINE 
FULL LINES 


04-11 # COLUMNS AT START UP. 

06-11 TEST SELECTION DURING OlAG, 

05-11 CHAR SELECTION FOR SCOPE ROUTINE 







5.1,1 SWITCH 0 * STOP ON ERROR 


WITH THIS SWITCH UP CD, THE PROGRAM wlLL HALT OR WAIT FOR A KEYBOARD 
ON ANY DETECTED ERRORS WHEN DOWN f0), THE PROGRAM WILL CONTINUE ON 
ERROR IF POSSIBLE. 


5,1.2 SWITCH 1 - INHIBIT ERROR TYPEOUT 

WHENEVER THIS SWITCH IS IN THE UP (1) POSITION, ERROR TYPEOUTS WILL 
NOT OCCUR. 


5.1.3 SWITCH 2 LOOP ON TEST 

WITH THIS SWITCH UP Cl), THE PROGRAM WILL CONTINUE TO LOOP ON THE 
CURRENT TEST UNTIL THIS SWITCH IS PLACED DOWN (0). AFTER RETURNING 
THIS SWITCH TO THE DOWN C0) POSITION, THE TEST WILL CONTINUE NORMAL 
OPERATION AT THE COMPLETION OF THE CURRENT TEST. THUS, WHENEVER THIS 
SWITCH IS DOWN C0), THE PROGRAM WILL CONTINUE NORMAL OPERATION. 


5,1.4 SWITCH 3 * HALT & SELECT TEST 

THE PROGRAM WILL HALT WHENEVER THIS SWITCH IS PLACED IN THE UP Cl) 
POSITION. AT THAT TIME, SET THE DESIRED TEST NUMBER IN THE PROPER 
POSITION IN THE PROCESSOR SWITCH REGISTER. 

TO START THE NORMAL TEST SEQUENCE WITH THE SELECTED TEST, PLACE THE 
HALT AND SELECT TEST SWITCH DOWN (0) THEN DEPRESS THE CONTINUE SWITCH, 

TO RUN A SELECTED TEST ONCE AND HALT, LEAVE THE HALT AND SELECT TEST 
SWITCH UP (1) AND DEPRESS CONTINUE. THE PROGRAM WILL EXECUTE ONE 
COMPLETE PASS OF THE SELECTED TEST, THEN HALT WAITING FOR ANOTHER TEST 
SELECTION, TO HALT THE PROGRAM DURING EXECUTION OF THE SELECTED TEST, 
PLACE THE HALT & SELECT TEST SWITCH DOWN (0) AT ANY TIME. THE PROGRAM 
WILL HALT AT THE COMPLETION OF THE CURRENT OPERATION AND WAIT FOR 
ANOTHER TEST SELECTION. 
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5,i.5 SWITCH 4 - MANUAL TIMING 

THIS SWITCH WILL BE USED TO MANUALLY TIME THE OVERALL PRINT SPEED OF 
THE LA 180 PRINTER IF A CLOCK OPTION DOES NOT EXIST. 


5.1,8 SWITCH 4 - SINGLE CHAR/FULL LINES CHAR 

THIS SWITCH WILL BE USED TO SELECT WHETHER TO SEND ONLY A SINGLE 
CHARACTER OR FULL LINES OF CHARACTERS TO THE LA180 PRINTER DURING TEST 

61 only. 


5,1.7 SELECTION OF NUMBER OF COLUMNS 

THESE SWITCHES WILL BE USED WHEN THE PROGRAM IS FIRST STARTED TO INPUT 
THE DESIRED, MAXIMUM NUMBER OF COLUMNS THE DIAGNOSTIC IS TO TEST, THE 
NUMBER SET MUST BE IN OCTAL AND BE EQUAL TO OR GREATER THAN 2 AND LESS 
THAN OR EQUAL TO 132110). IF THE SWITCHES ARE NOT SET WITHIN THESE 
SET LIMITS, THE PROGRAM WILL DEFAULT TO TESTING 132(10) COLUMNS, 
THUS, LEAVING THESE SWITCHES DOWN (000) THE PROGRAM WILL AUTOMATICALLY 
TEST THE FULL 132(10) COLUMNS. 


5,1.8 TEST SELECTION 

THESE SWITCHES WILL BE USED TO SELECT A DESIRED TEST WHENEVER THE HALT 
AND SELECT TEST SWITCH IS USED TO HALT THE DIAGNOSTIC PROGRAM. 
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5,2 CONSOLE TERMINAL « KEYBOARD CONTROL 

WHENEVER A CONSOLE TERMINAL IS DETERMINED TO BE AVAILABLE BY THE 
PROGRAM, THE DIAGNOSTIC WILL BE CAPABLE OF BEING CONTROLLED FROM THE 
KEYBOARD OF THE CONSOLE DEVICE, TYPING A RUBOUT (DEL) ON THE CONSOLE 
KEYBOARD AT ANY TIME WILL CAUSE THE PROGRAM TO STOP AND PRINT THE 
FOLLOWING MESSAGE ON THE CONSOLE DEVICE: 

SELECT TEST #1 

TYPE ANY LEGAL TEST NUMBER FOLLOWED BY ONE OF THE FOLLOWING CONTROL 
CHARACTERS AND A CARRIAGE RETURN* 

CHARACTER FUNCTION 


. (PERIOD) RUN TEST ONCE & RETURN TO TEST SELECTION 

L LOOP ON selected test 

S START SEQUENCE WITH SELECTED TEST 

THE L AND S MAY BE EITHER UPPER OR LOWER CASE BUT TEST NUMBERS MUST 
ALWAYS BE ENTERED AS 2 DIGIT NUMBERS. 

TO RE5ET THE DE8IRED MAXIMUM NUMBER OF COLUMNS, TYPE A CONTROL-C C"C) 
ON THE CONSOLE TERMINAL KEYBOARD AT ANY TIME, THE FOLLOWING MESSAGE 
WILL BE TYPED ON THE CONSOLE DEVICE* 


# COLUMNS ■ 

TYPE IN THE DESIRED NUMBER OF COLUMNS (IN DECIMAL) ON THE CONSOLE 
KEYBOARD FOLLOWED by A CARRIAGE^RETURN, IF the SELECTED number IS 
LESS THAN 2 OR GREATER THAN 132(10) THE MESSAGE WILL BE REPEATED AND 
YOU MUST RENTER THE NUMBER OF COLUMNS, WHEN A CORRECT NUMBER IS 
ENTERED, THE PROGRAM WILL THEN ASK FOR A TEST SELECTION AS DESCRIBED 
PREVIOUSLY IN THIS SECTION, 

TO CHANGE THE NUMBER OF COLUMNS.WHEN WAITING FOR A TEST SELECTION, 
TYPE A CONTROL-C FOLLOWED BY A CARRIAGE RETURN. WHILE INPUTTING A 
TEST SELECTION OR COLUMN NUMBER THE RUBOUT (DEL) KEY MAY BE USED TO 
DELETE INCORRECT ENTRIES. AT ALL TIMES SWITCH REGISTER CONTROL WILL 
STILL BE EFFECTIVE, EVEN IF USING CONSOLE TERMINAL KEYBOARD CONTROL. 
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5,3 DYNAMIC SOFTWARE SWITCH REGISTER CONTROL 

WHENEVER A CONSOLE' TERMINAL IS AVAILABLE AND A HARDWARE SWITCH 
REGISTER IS NOT AVAILABLE COR IT IS DESIRED TO USE THE SOFTWARE SWITCH 
REGISTER INSTEAD) SET PIT ZERO OF LOCATION g0 TO 0 AND THE PROGRAM 
WILL RECOGNIZE THE FOLLOWING DYNAMIC SOFTWARE SWITCH REGISTER CONTROL t 

TYPING A CONTROL-G CBEL) AT ANY TIME DURING PROGRAM EXECUTION, EXCEPT 
WHEN WAITING FOR A TEST OR COLUMN NUMBER SELECTION, WILL CAUSE THE 
DIAGNOSTIC TO STOP THE CURRENT TEST AND TYPE THE FOLLOWING MESSAGE ON 
THE CONSOLE DEVICE r 

SWR ■ XXXX NEW « 

WHERE XXXX IS THE CURRENT CONTENTS OF' THE SOFTWARE SWITCH REGISTER 
CSSRJ IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN AWAIT OPERATOR 
ACTION. THE OPERATOR IS THEN REQUIRED TO TYPE ONE OR MORE OF THE 
LEGAL CHARACTERS D 0-7, 2) LINE FEED <LF>, 3) CARRIAGE RETURN <CR>, 
4) CONTROL-U <*U>„ NO CHECK IS MADE FOR CHARACTER LEGALITY. IF THE 
INPUT CHARACTER IS NOT A LF, CR, OR *U IT IS ASSUMED TO BE AN OCTAL 
DIGIT AND WILL BE ECHOED AS THE DIGIT THAT IS GOING TO BE STORED IN 
THE SWITCHES. 

TO CHANGE THE CONTENTS OF THE SSR, THE OPERATOR SIMPLY TYPES • THE NEW 
DESIRED VALUE IN OCTAL, LEADING ZEROS NEED NOT BE TYPED, AND 
TERMINATES THE INPUT STRING WITH A <CR* OR <LF» DEPENDING ON THE 
program action DESIRED AS DESCRIBED BELOW. THE INPUT VALUE will BE 
TRUNCATED TO THE LAST b DIGITS TYPED. AT LEAST ONE DIGIT MUST BE 
TYPED ON ANY GIVEN INPUT STRING PRIOR TO THE TERMINATOR BEFORE A 
CHANGE TO THE SSR WILL OCCUR. 

WHEN THE INPUT STRING IS TERMINATED WITH A <CR», THE DIAGNQTSIC WILL 
CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS INTERRUPTED, IF A 
<CR> IS THE ONLY THING TYPED, THE PROGRAM WILL CONTINUE WITHOUT 
CHANGING THE SSR. IF A LINE FEED «LF> IS USED TO TERMINATE THE INPUT 
STRING, THE PROGRAM WILL THEN ASK FOR A TEST SELECTION AS DESCRIBED IN 
SECTION 5,2, 

IF A *U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO THE 
TERMINATOR, THE INPUT VALUE WILL BE DISREGARDED AND THE PROMPT MESSAGE 
WILL BE RETYPED. 


5.4 ERROR reporting 

IF A CONSOLE TERMINAL EXISTS AND THE INHIBIT ERROR TVPEOUT SWITCH IS 
DOWN (03, WHENEVER AN ERROR IS DETECTED THE FOLLOWING ERROR MESSAGE 
WILL BE PRINTED ON THE CONSOLE DEVICE! 

TEST #XX, PC«XXXX, ERROR #XXX, MESSAGE >»»*»» 

the error message* indicates the test number, the location where the 

ERROR OCCURRED, THE ERROR NUMBER, AND THE TYPE OF ERROR THAT OCCURRED. 
FOR ADDITIONAL INFORMATION ON ANY ERROR CONDITION, REFER TO THE 
program LISTING. 

WHENEVER A CONSOLE TERMINAL IS NOT AVAILABLE THE HALT ON ERROR SWITCH 
SHOULD BE USED, AFTER AN ERROR OCCURS AND THE PROGRAM HALTS, EXAMINE 
THE CONTENTS OF ERRPC TO FIND THE ADDRESS WHERE THE ERROR OCCURRED AND 
ERRNM TO FIND THE ERROR NUMBER, THE TEST NUMBER WILL BE LOCATED IN 
EITHER THE HARDWARE OR SOFTWARE DISPLAY DEPENDING ON CPU TYPE. THEN 
REFER TO THE PROGRAM LISTING TO DETERMINE THE TYPE OF ERROR THAT 
OCCURRED AND TO FINO ANY ADDITIONAL INFORMATION REGARDING THAT ERROR, 

if needed, the error messages are located near the end of the program 

LISTING, 


6,0 TEST DESCRIPTIONS 


6,1 OPERATOR INTERVENTION TESTS 

THIS SERIES OF TESTS CONSISTS OF ALL TESTS NORMALLY EXECUTED WHICH 
COULD POSSIBLE REQUIRE OPERATOR INTERVENTION, THESE TeSTS ARE 
EXECUTED ONLY ONCE EACH WHEN THE DIAGNOSTIC IS FIRST STARTED UP. A 
DETAILED DESCRIPTION OF EACH TEST FOLLOWS! 
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6,1.1 TEST 00 - INTERFACE & CONTROL TESTS 

THIS TEST IS DESIGNED AS A COMMAND DECODE AND CONTROL INTERFACE TEST 
AND INCLUDES CHECKOUT OF THE PRINTER INTERRUPT FACILITY. MANUAL 
INTERVENTION IS REQUIRED TO TEST THE VARIOUS TESTABLE NON-READY 
CONDITIONS OF THE PRINTER, OPERATOR INSTRUCTIONS WILL BE PRINTED ON 
THE CONSOLE DEVICE IF AVAILABLE THEN THE PROGRAM WILL WAIT FOR THE 
OPERATOR TO COMPLETE THE ACTION. DEPRESS The SPACE BAR ON THE CONSOLE 
KEYBOARD OR THE CONTINUE SWITCH ON THE CPU IF NO CONSOLE DEVICE IS 
AVAILABLE TO TEST THE NEXT CONDITION WHEN READY. IF ANY UNEXPECTED 
RESULTS ARE ENCOUNTERED, AN ERROR MESSAGE WILL BE PRINTED ON THE 
CONSOLE DEVICE IF AVAILABLE, (REFER TO SECTION 5.3 ON ERROR 
REPORTING.! 

POWER SHOULD BE OFF ON THE LA180 BEFORE STARTING THIS TEST, THE 
PROGRAM WILL FIRST TEST THAT THE PRINTER IS NOT READY WITH POWER OFF, 
AN INSTRUCTION WILL THEN ASK FOR THE PRINTER POWER TO BE TURNED ON. 
TURN POWER ON AND MAKE SURE THERE IS PAPER IN THE PRINTER AND THE 
PRINTER IS OFF LINE. THE DIAGNOSTIC WILL AGAIN CHECK THAT THE PRINTER 
IS NOT READY. AN INSTRUCTION ON THE CONSOLE DEVIDE WILL NEXT INFORM 
THE OPERATOR TO TURN THE LA180 ON LINE. THE PROGRAM WILL NOW CHECK 
THAT THE PRINTER IS READY. THE NEXT PRINTED INSTRUCTION WILL HAVE THE 
OPERATOR FORCE A PAPER OUT CONDITION BY OPENING THE PAPER FEED 
TRACTORS AND REMOVING THE PAPER FROM THE PRINTER. THE DIAGNOSTIC WILL 
CHECK THAT THE PRINTER IS NOT READY, THE LAST INSTRUCTION WILL ASK TO 
RESTORE THE PRINTER TO ON-LINE BY RE-lNSERTING PAPER AND CLEARING THE 
ERROR CONDITION, 'MAKE SURE THE PRINTER IS SET TO ON-LINE BEFORE 
CONTINUING. THE PROGRAM WILL TEST TO SEE THAT THE PRINTER IS AGAIN 
READY. 

THE LAST HALF OF THIS TEST WILL BE PERFORMED AUTOMATICALLY WITHOUT 
FURTHER MANUAL INTERVENTION REQUIRED, FIRST, A CHECK WILL BE MADE TO 
SEE THAT THE PCLF INSTRUCTION CLEARS THg READY FLAG. A RUBOUT (DEL) 
WILL THEN BE LOADED TWICE TO THE PRINTER, ONCE USING A PSTB 
INSTRUCTION AND AGAIN USING A PCLP INSTRUCTION, TO SEE IF LOADING THE 
CHARACTER BUFFER WILL CLEAR THE READY BIT, THE TEST WILL CHECK THAT 
THE PRINTER READY BIT SETS WITHIN A REASONABLE AMOUNT OF TIME, THE 
FINAL TESTS WILL CHECK THE PRINTER INTERRUPT SYSTEM. A CHECK WILL BE 
MADE FOR UNEXPECTED INTERRUPTS, AND IF AN INTERRUPT OCCURS WITH THE 
PRINTER READY BIT SET, THEN A CHECK WILL BE MADE TO SEE THAT NO 
INTERRUPT OCCURS WITH THE PRINTER INTERRUPT ENABLED AND THE READY BIT 
SET, BUT THE CPU INTERRUPT SYSTEM OFF, 
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6,1.2 TEST 01 - TOP OF FORM SWITCH TEST 

THIS TEST CHECKS ALL POSITIONS OF THE TOP OF FORM SWITCH, THE 'PROGRAM 
WILL PRINT INSTRUCTIONS FOR THE NEXT SETTING OF THE TOP OF FORM SWITCH 
ON THE CONSOLE TERMINAL (IF AVAILABLE) AND THEN WATT FOR THE OPERATOR 
TO COMPLETE THE ACTION. AFTER SETTING THE SWITCH, DEPRESS THE SPACE 
BAR OF THE CONSOLE DEVICE (OR CONTINUE ON THE PROCFSSOR IF NO CONSOLE 
DEVICE EXISTS) TO TEST THAT SWITCH POSITION, AFTER CHECKING ALL 
POSITIONS, THE PRINTER OUTPUT CAN BE VISUALLY VERIFIED. A LINE OF ALL 
DASHES IS PRINTED AS A STARTING POINT AND THEN LINES ARE PRINTED TO 
INDICATE THE PROPER SPACING (IN INCHES) FROM THE PREVIOUS LINE TO THAT 
LINE. 

example: 


4.0 INCH FORM FEED 


6,1,3 TEST 02 - PRINT SPEED TIMING TEST 

THIS TEST IS DESIGNED TO TIME THE LA180 FOR ONE FULL MINUTE WHILE A 
SWIRL PATTERN IS PRINTED TO THE SELECTED MAXIMUM NUMBER OF COLUMNS. 
IF A LINE CLOCK OR A PROGRAMMABLE CLOCK OPTION IS DETERMINED TO BE 
AVAILABLE BY THE PROGRAM, IT WILL BE USED TO AUTOMATICALLY TIME THE 
PRINTER. WHEN NEITHER CLOCK OPTION IS AVAILABLE, MANUAL TIMING WILL 
BE USED AND OPERATING INSTRUCTIONS WILL BE TYPED ON THE CONSOLE DFVICE 
IF IT IS AVAILABLE. WHICHEVER METHOD OF TIMING IS USED, AT THE END OF 
ONE FULL MINUTE THE APPROXIMATE PRINT SPEED WILL BE PRINTED ON THE 
LAIB0 AND ALSO ON THE CONSOLE DEVICE (IF AVAILABLE). REMEMBER, THE 
PRINT SPEED IS DIRECTLY RELATED TO THE NUMBER OF COLUMNS BEING 
PRINTED, ALSO, THE CONTENTS OF ONE LOCATION IN MEMORY WILL HAVE TO BE 
CHANGED IF THE LINE FREQUENCY IS 50 HZ. AND A CLOCK OPTION IS BEING 
USED FOR TIMING. 


6.2 PRINTING TESTS 

THESE TESTS ARE DESIGNED AS A TEST OF THE PRINTING MECHANISM AND THE 
ASSOCIATED CONTROL LOGIC. AT THE BEGINNING OF EACH TEST, A TEST 
HEADER WILL INDICATE THE TEST NUMBER BEING EXECUTED. THE TEST PROGRAM 
CONTINUALLY MONITORS FOR PROPER OPERATION OF THE LINE PRINTER AFTER 
EACH PRINTER OPERATION HAS BEEN COMPLETED, THROUGH THE PRINTER "READY 1 ' 
LINE AND THE SETTING OF THE "DEMAND" FLAG. IT SHOULD BE NOTED, 
HOWEVER# THAT THE "DEMAND" RETURN FROM THE PRINTER IS CONDITIONAL UPON 
THE PRINTER "READY". SINCE THE PROCESSOR CAN ONLY DETECT THE CURRENT 
CONDITION OF THE "READY" AND "DEMAND" RETURN) LINES IT IS NECESSARY TO 
EXAMIME THE PRINT PATTERNS PRODUCED BY THE VARIOUS TEST ROUTINES. 
EACH PATTERN HAS BEEN CHOSEN FOR EASE OF VISUAL VERIFICATION, 
DETAILED DESCRIPTIONS OF EACH TEST PATTERN APPEARS IN THE DESCRIPTION 
OF THE following TEST ROUTINES. 
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6,2.1 TEST 20 m DATA TRANSFER PATHS TEST 

THIS TE8T 18 DESIGNED TO TEST THE OATa UINES TO AND THROUGH THE 
INTERFACE AND TO THE LA 180 PRINTER. AN ALTERNATING BIT PATTERN IS 
SENT WHICH WILL PRINT ALTERNATING *'S AND U'S IN A CHECKERBOARD 
PATTERN TO THE MAXIMUM COLUMN WIDTH, THE STARTING CHARACTER FOR EACH 
LINE IS ALTERNATED AND A TOTAL OF 16 LINES ARE PRINTED. 

EXAMPLE! 


*U*U*U*U ..... *u*u 

U*U*U*U* ..... u*u« 

*U*U*U*U . *u*u 

U*U*U*U* ..... U*U* 


6,2,2 TEST 21 • HEAD POSITIONING TEST 

THIS TEST CHECKS THE CARRIAGE RETURN FROM ALL EVEN NUMBERED COLUMNS 
AND THE SPACING OF THE SOLENOID HEAD FROM THE LEFT MARGIN, HOWEVER, 
THE PRIMARY PURPOSE OF THIS TEST IS TO TEST THE SOLENOID HEAD POSITION 
DECODER FOR PROPER OPERATION, 

THE TEST PRINTS A FULL LINE OF ALTERNATING 0'S AND SPACES» STARTING 
WITH A 0'. AT THE END OF THE LINE THE PRINT HEAD IS RETURNED TO THE 
LEFT MARGIN WITH A CARRIAGE RETURN, THE SPACES ARE THEN FILLED IN BY 
SPACING THE PRINT HEAD DUT FROM THE LEFT MARGIN TO THE FIRST SPACE, 
PRINTING AN "X h , AND EXECUTING A CARRIAGE RETURN. THIS PATTERN IS 
REPEATED UNTIL THE LINE IS COMPLETED. CHECK TO SEE THAT ALL X'S ARE 
IN THE MIDDLE OF THE SPACE BETWEEN THE TWO ADJACENT ZEROES. 

EXAMPLE! 

0x0x0xex0x0x0x0x0x0x0x0x&x0x0x0x0x0xax0x0x0x0x0x0xflx0x0x 


6.2.3 TEST 22 - BACKSPACE TEST 

THIS TEST IS DESIGNED TO CHECK THE BACKSPACE FEATURE OF THE LA180 
PRINTER, TWO LINES OF X'S INTERSPACED WITH DASHES WILL BE PRINTED BY 
PRINTING A SLASH, EXECUTING A BACKSPACE, AND THEN PRINTING A BACKSLASH 

to complete each x character. a maximum of tgr columns will be 

PRINTED BY THIS TEST. 

EXAMPLE! 

X-X-X-X-X-X-X-X 

x-x-x-x-x-x»x-x 









6,2.a TEST 23 - CHARACTER GENERATOR TEST 

THIS TEST CHECKS THE SPACE AND ALL <54 PRINT ABLE CHARACTERS CASCII 
CODES 040 TO 176) BY PRINTING A SINGLE LINE* 30 CHARACTERS LONG, OF 
EACH CHARACTER. 

example* 

itiiiiiiiiiiiiiniiiiiiniiiii 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 


6,2.5 TEST 24 - NON-PRINTABLE CHARACTER TEST 

THIS TEST IS DESIGNED TO TEST THE LAl80 HANDLING OF NON-PRINTABLE 
CHARACTERS AND TO EXERCISE THE FULL RANGE OF THE CHARACTER STORAGE 
BUFFER, THE TEST PATTERN PRODUCED WILL BE A 30 LINE SWIRL PATTERN, 
CONSISTING OF FULL LINES OF THE ENTIRE PRINTABLE CHARACTER SET, IF 
THIS TEST IS LOOPED ON, THE PATTERN WILL CONTINUE A FULL SWIRL, RATHER 
THAN ONLY 30 LINES AND THEN REPEATING, AS THE SWIRL PATTERN IS 
PRODUCED, A GROUP OF PRINTABLE CHARACTERS WILL BE SHIFTED (IN 
INCREMENTS DEPENDING ON THE NUMBER OF COLUMNS BEING TESTED) THROUGH 
THE FULL RANGE OF THE CHARACTER BUFFER , STARTING AT THE END OF THE 
BUFFER, NON-PRINTABLE CHARACTERS WILL BE USED TO FILL THE CHARACTER 
BUFFER BEFORE AND AFTER THE GROUP OF PRINTABLE CHARACTERS FOR EACH 
PRINTED LINE, ALL NON-PRINTABLE CHARACTERS HAVING NO CONTROL FUNCTION 
WITHIN THE LA 180 WILL BE USED, 

example: 

1 h #SX*'()*♦,-./0123456789!»<*>?#ABc„... 

"#SX&'O*+,^./0123456789:><»>?*ABCD..,. 

#SX4 # f)*+,-./0122456789S;<8 >?AABCDe. . . „ 


6.2,6 TEST 25 - BUFFER TEST 

THIS TEST IS DESIGNED TO TEST THE CHARACTER STORAGE BUFFER IN THE 
LA 180 FOR PROPER OPERATION. THIS TEST WILL PRODUCE FOUR LINES OF 
PRINT WITH 2 BLANK LINES BETWEEN THE FIRST AND SECOND LINES, THE 
LINES PRINTED WILL ALSO SERVE AS A CHECK OF PRINTING THE CORRECT 
COLUMN WIDTH. THE PATTERNS ARE DESCRIBED FDR 13? COLUMNS BUT WILL BE 
SHORTENED ACCORDINGLY FOR NARROWER TEST WIDTHS. BEFORE THE FIRST LINE 
IS STORED, 16 E'S WILL BE LOADED INTO THE BUFFER. THEN A RUBOUT C177) 
WILL BE SENT TO CHECK THAT A RUBOUT WILL CLEAR THE BUFFER, BEFORE 
EACH OF THE LAST THREE LINES IS PRINTED AND BEFORE THE BLANK LINES 
BETWEEN THE FIRST AND SECOND PRINTED LINES, THE CHARACTER BUFFER WILL 
BE FILLED WITH ALL E'S. THUS, AN E PRINTED ANYWHERE IN THE TEST 
PATTERN INDICATES AN ERROR. 
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THE FIRST LINE WILL CONTAIN 100 ONES, 30 THREES, AND 2 TWOS, THE 
SECOND PRINTED LINE WILL CONTAIN 99 ZEROES AND 33 ONES. THE THIRD 
LINE WILL CONSIST OF THE NUMBERS 0, 1, 2, 3, a, 5, 6. 7, 8, 9, 0, 1, 

2, AND 3 IN GROUPS OF 10 CHARACTERS EACH (EXCEPT THE FIRST GROUP OF 
ZEROES WILL CONTAIN ONLY 9 CHARACTERS). THE LAST LINE WILL CONTAIN 
THE NUMBERS 1 TO 9 THEN 0 IN SUCCESSION, REPEATED TO THE MAXIMUM 
COLUMN. 

THUS; THE COLUMN NUMBER MAY BE READ DIRECTLY BY READING THg NUMBERS IN 
ANY GIVEN COLUMN ON THE LAST THREE LINES, FROM TOP TO BOTTOM. 

COLUMN 30 WOULD BE 0 

3 

0 

COLUMN 132 WOULD BE 1 

3 

2 


EXAMPLE* 

Hiuuiimiiiimmmmiir.....322 


0000000000000000000000000000000..... Ill 
000000000111 111 1 111222222222233.....333 
1234567890123A56769012345678901.012 


6.2,7 TEST 26 - OVERPRINT TEST 

THIS TEST IS DESIGNED TO CHECK THE SPACING AND REPEATABLE PRINTING 
CHARACTERISTICS OF THE PRINTER. FOUR LINES OF CHARACTERS ARE EACH 
OVERPRINTED TWO TIMES, THE ROWS CONSIST OF THE FOLLOWING CHARACTERS 
ALTERNATED ACROSS THE LINE, 


ROW 1 

E - SP 

ROW S 

SP • P 

ROW 3 

M - SP 

ROW A 

SP - # 

THE RESULTING PATTERN WILL BE A CHECKERBOARD PATTERN AND THE 

OVERPRINTED 

CHARACTERS. 

CHARACTERS SHOULD BE ALIGNED PROPERLY WITH THE INITIAL 

EXAMPLEl 


E E E E 

E E E E E E 

# # P 


M M M M 

M M M M M M 

# * # 

«###### 
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6.2.6 TEST 27 - MULTIPLE LINE FEED TEST 

THIS TEST CHECKS THE LINE FEED CAPABILITY OF THE PRINTER BY SENDING 
VARIOUS GROUPS OF LINE FEEDS INTERSPACED WITH REFERENCE LINES. THE 
NUMBER PRINTED AT THE LEFT MARGIN OF THE REFERENCE LINE INDICATES THE 
NUMBER OF LINE FEEDS THAT FOLLOW. EACH LINE WILL CONTAIN A STRING OF 
DASHES AS REFERENCE POINTS FOR MEASURING, THE FIRST AND LAST BEING 132 
CHARACTERS LONG (MAXIMUM) AND THE MIDDLE LINES BEING 30 CHARACTERS 
LONG. 


example* 


01 

02 

04 





08» 

V 


\ 

> 7 BLANK LINES 

/ 

/ 

lb--- 

\ 

\ 

> 15 BLANK LINES 

/ 

t 

32. 

\ 

\ 

> 31 BLANK LINES 

/ 

/ 

00 ...... 
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6.a,9 TEST 30 * RIBBON FEED TEST 

THIS TEST CHECKS THE RIBBON FEED MECHANISM BY PRINTING A SINGLE COLUMN 
OF 24 LINES ■ OF X'8 DOWN THE LEFT HAND MARGIN OF THE PAGE, VISUALLY 
CHECK FOR PROPER OPERATION OF THE RIBBON FEED MECHANISM DURING THIS 
TEST. 

EXAMPLE! 

X 

X 

X 


« 

X 

X 

X 


6,2.10 TEST 31 - BELL TEST 

THIS TEST IS DESIGNED TO CHECK THE BELL CODE LOGIC AND THE TIMING 
SEQUENCE OF THE MICRO LOGIC. THE TEST WILL PRINT "BELL TEST" 
INTERSPACED WITH BELL CODES BETWEEN -CHARACTERS AND THE FOLLOWING 
CARRIAGE RETURN AND LINE FEED FUNCTIONS, A TOTAL OF FIVE BELLS WILL 
BE SOUNDED. THIS TEST WILL ALSO AUDIBLY INDICATE AN END OF A COMPLETE 
PASS THROUGH THE PRINTING TEST SEQUENCE, 

EXAMPLE! 

<BEL> BELL «BEL» <SP> TEST <BEL> «CR> 

«BEL» «LF> <BEL> <CR> 



6,3 MAINTANANCE AIDS 


THESE TESTS ARE PROVIDED AS ADDITIONAL DEBUGGING AND EXERCISING AIDS 
FOR THE LAI80 PRINTER. A DETAILED DESCRIPTION OF EACH TEST FOLLOWS. 


6.3.1 TEST 60 - LIFE TEST 

THIS TEST RUNS CONTINUOUSLY AND IS RUN AS AN INDIVIDUAL, SPECIAL TEST, 
AND IS NOT PART OF THE STANDARD PRINTING TEST SEQUENCE. THIS TEST 
PRINTS 2 LINES OF EACH PRINTABLE CHARACTER AND THEN REPEATS 
CONTINUOUSLY. THE SECOND LINE OF EACH CHARACTER IS OVERPRINTED a 
TIMES TO CONSERVE PAPER. AT THE COMPLETION OF EACH PASS THROUGH THE 
ENTIRE PRINTABLE CHARACTER SET, THE PASS COUNT WILL BE PRINTED ON THE 
LA180. 

TIME FOR A COMPLETE PASS, WITH 132 COLUMNS IS APPROXIMATELY 10 

minutes, 

example* 

aaaaaaaaaaaaaaaaaaaa 

AAAAAAAAAAAAAAAAAAAA 

BBBBBBB9BBBBBBBBBBBP 

BBBBBBBBBBBBBBBBBBBB 


6.3.2 TEST 61 - SCOPE DRIVE ROUTINE 

THE PURPOSE OF THIS TEST IS TO PROVIDE THE OPERATOR WITH A SHORT BUT 
COMPREHENSIVE SCOPE DRIVER routine FOR USE IN TROUBLE SHOOTING THE 
PRINTER and interface CONTROL LOGIC with AN OSCILLISCOPE. 

DEPENDING ON THE SETTING OF the SINGLE CHAR/FULL LINE SWITCH OF THE 
SWITCH REGISTER (SWITCH 04) THIS TEST WILL EITHER CONTINUALLY SEND 
WHATEVER CHARACTER IS SET IN THE SWITCH REGISTER TO THE LINE PRINTER, 
OR ONLY send it once and halt, when continuously SENDING CHARACTERS, 
A LINE FEED WILL BE INSERTED AFTER THE MAXIMUM COLUMN COUNT IS REACHED 
TO PRINT THE LINE. WHEN SENDING SINGLE CHARACTERS, DEPRESS CONTINUE 
TO SEND THE CHARACTER SET IN THE PROCESSOR SWITCH REGISTER. TO RESUME 
SENDING CONTINUOUS CHARACTERS, PLACE THE SINGLE CHAR/FULL LINE CONTROL 
SWITCH DOWN, SET THE DESIRED CHARACTER» AND DEPRESS CONTINUE. TO STOP 
SENDING CONTINUOUSLY PLACE THE SINGLE CHAR/FULL LINE SWITCH UP AND THE 
PROGRAM WILL HALT WAITING FOR A CHARACTER SELECTION. WHEN SENDING 
INDIVIDUAL CHARACTERS OR IF SENDING NON-PRINTABLE CHARACTERS, NO LINE 
FEEDS OR CARRIAGE RETURNS WILL BE INSERTED BY THE PROGRAM. 
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6,3.3 TEST 62 * LINE PRINT TEST 

THIS TEST CONTINUOUSLY PRINTS FULL LINES OF WHATEVER CHARACTER IS 
typed on the console keyboard, to change characters, RESELECT THIS 
TEST AND TYPE ANOTHER CHARACTER. AN ERROR MESSAGE WILL BE PRINTED ON 
THE LA1S0 IF THIS TEST IS SELECTED AND A CONSOLE TERMINAL DOES NOT 
EXIST. 


6,3.4 TEST 63 * CHARACTER PRINT TEST 

THIS TEST LOADS WHATEVER CHARACTER IS TYPED ON THE CONSOLE KEYBOARD TO 
THE LA 160, CHARACTER BY CHARACTER, ALU TYPED CHARACTERS ARE ECHOED TO 
THE CONSOLE DEVICE AS THEY ARE LOADED TQ THE LA100, EXTRA CARRIAGE 
RETURNS OR LINE FEEDS ARE ECHOED TO THE CONSOLE DEVICE TO AVOID 
OVERPRINTING LINES, IF THIS TEST IS SELECTED AND A CONSOLE TERMINAL 
DOES NOT EXIST AN ERROR MESSAGE WILL BE PRINTED ON THE LA180. 




/MAINDEC-08-OILAC-B-L 


PALltl V142A 26-MAY-78 


91 aA 


PAGF 1 


8EQ 0P1PPI 


/HAINDEC-08-OIL 
/LA 160 PRINTER 
/COPYRIGHT (C) 

/AUTHOR I 


AC-B-L 

DIAGNOSTIC 
1971, 1978, DIGITAL 
ROBERT BAKER/RRUCE 


FQUIPHENT CO,, 
HANSEN 


HAYNARO, HA, 


01759 


/SWITCH REGISTER OPTIONSI 


/SWITCH NUMBER DESCRIPTION 


/ 00 

/ 01 

/ 02 

/ 03 

/ 09 

/ 

/ 00-11 
/ 08-11 
/ 0 ! - 11 



0000 

0000 

0001 

0002 

0000 

5402 

0307 


0010 

0010 

0000 


0020 

0020 

0021 

0022 

0000 

4003 

0000 


0023 0000 

0024 0000 


/MAINDEC-08-DILAC-B-I 


0025 

0000 

0026 

0000 

0027 

0660 

0030 

0304 

0031 

0000 

0032 

0000 

0033 

0000 

0034 

0000 

0035 

0000 

0036 

0000 

0037 

0000 

0040 

0000 

0041 

0000 

0042 

0000 

0043 

0000 

0044 

0000 

0045 

0000 

0046 

0000 

0047 

0000 


0050 

0000 

0051 

0000 

0052 

0000 

0053 

0000 


0 

JHP I 

ISRV, IERROR 
*10 

AUTPTR, 0 

• 20 

SWITCH, 0000 
PARAH, 4003 
0000 

/FLAGS, POINTERS 

TSTNM, 0 
ERRNH, 0 


PAL 10 V142A 

ERRPC, 0 
WIDTH, 0 

PTRIOT/ 0660 
IOTSEL, 0304 

CHAR, 0 
CHAR2, 0 
SAVE, 0 
COUNT, 0 
C0UNT2, 0 
l.PCNT, 0 

CKCNT, 0 

PASCNT, 0 
TABPTR, 0 
TSTPTR, 0 
MSG ADR , 0 

ONES, 0 
TENS, 0 
HUNDS, 0 
THOUS, 0 


STRONE, 0 
TRONE, 0 
TLODP, 0 

TPFLG, 0 


STOP ON ERROR 

inhibit error typout 

LOOP ON TEST 

halt and select test 

SINGLE CHAR/FULL LINES - SCOPE ROUTINE 
HANUAL timing - PRINT SPEEO TEST 

4 COLUMNS AT START UP 

TEST SELECTION 

CHARACTER SELECTION - SCOPE ROUTINE 


ISRV /INTERRUPT SERVICE 


/AUTO INCREMENT POINTER 


/SOFTWARE SWITCH register 

/SET TO 0003 IF NO HARDWARE SWITCH REG IS AVAILABLE 


, A STORAGE 


/CURRENT TEST NUMBER 
/ERROR NUMBER 


2S-MAY-76 9108 PAGE 1-1 

/ERROR LOCATION 

/NEGATIVE NUMBER OF COLUMNS 

/LA 180 IOT CODE - 0XX0 
/TTY IOT CODES, XHT - RCV 

/CHARACTER STORAGE 

/TEMP STORAGE 
/WORKING COUNTERS 


/TABLE POINTER 

/TEST ADDRESS FROH TABLE 

/MESSAGE ADDRESS STORAGE 

/CONVERSION COUNTERS 


/ONE RUN FLAG - SW REG CNTRL 
/ONE RUN FLAG - KYBD CNTRL 
/LOOP ON TEST FLAG - KYBD CNTRL 

/TERHINAL AVAILABLE FLAG 

/0 * NO, 7777 « YES --- CSET BY THE PROGRAM) 


0000 

CKFLAG, 0 

/CLOCK OPTION FLAG 
/0 * NONE AVAILABLE, 

OR 00 NOT USE AVAJLABLE OPTION 



/IF OKSEA OR DK8EC IS 
/SET CKFLAG DEPENDING 

available - 

ON CLOCK FREQ. 


/T7T3 « 50 HZ - DK8EC 

/7T66 * 50 HZ LINE FREQ, - OKSEA 

/7769 « 60 HZ LINE FREQ, - 0K8EA 

/7716 « 500 HZ - DK8EC 

/7014 ■ 5 KHZ - 0K8EC 


0055 

4000 

/TAGS 

TTYPE, 

RTYPE 

0056 

6060 

tload, 

RLOAD 

0057 

3123 

thold, 

RHOLO 

0060 

0105 

THLOAD, 

RHLOAD 

0061 

4200 

TPRINT, 

RPRINT 

0062 

4262 

TPRHDR, 

RPRHDR 

0063 

3600 

TERROR, 

RERROR 

0064 

3107 

TCHECK, 

RCHECK 

0065 

3017 

TEXIT, 

REXIT 

0066 

3405 

TKBOST, 

KYBDST 


SEQ 0021 
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9108 


PAGE 1-2 


SEO 51913? 


/MAINDEC-08-DILAC-B-L 


PAL10 


0067 

3050 

T8ELCT, 

SELECT 

0070 

0600 

TTAT , 

TAT 

0071 

3716 

TMIOT, 

MIQT 

0073 

2600 

TKBP , 

RKSP 

0073 

2605 

TKCC< 

RKCC 

0070 

2610 

TKR8» 

RKRS 

0075 

2613 

TKRB , 

RKRB 

0076 

2616 

TTSP / 

RT3P 

0077 

2623 

TTCP , 

RTCP 

0100 

2626 

TTPC. 

RTPC 

0101 

2631 

TTLS, 

RTLS 

0102 

2630 

TPSKF, 

RPSKP 

0103 

2606 

TPCLP. 

RPCLP 

0100 

2656 

TPSTB, 

RPSTB 

0105 

2670 

TPSIE, 

RPSIE 

0106 

2702 

TPCLPi 

RPCLP 

0107 

3200 

TKBPG, 

KYBDP 

0110 

3065 

TT8EL, 

T8EL 

0111 

0000 

READ, 

TREAD 

0112 

0051 

TREAOQ, 

REAOQ 

0113 

0510 

CHKQCT, 

TCKOUT 

0110 

0520 

CHKNR, 

TCHKNR 

0115 

0022 

GOUT, 

OUT 

0116 

0333 

TOELAY, 

DELAY 

0117 

3713 

TCNVRT, 

CNVRT 

0120 

3000 

TCK8RV, 

CK8RV 

0121 

0322 

TGET8W, 

RGETSW 

0122 

3660 

PDIGIT, 

RPOIGT 

0123 

3665 

TPOCT, 

POCT 

0120 

0500 

lreadt, 

READT 

0125 

0307 

LIERR, 

IERROR 



/constants 

0126 

0002 

P2» 

0002 

0127 

0007 

P7, 

0007 

0130 

0010 

P10, 

0010 

0131 

0012 

PI 2, 

0012 

0132 

0015 

P15, 

0015 

0133 

0036 

P36, 

0036 

0130 

0000 

PA0, 

0000 

0135 

0001 

P01, 

0001 

0136 

0035 

P55, 

0055 

0137 

0057 

P37, 

0057 

0100 

0060 

P60, 

0060 

0101 

0072 

P72, 

0072 

0102 

0077 

P77, 

0077 

0103 

0100 

P100, 

0100 

0100 

0130 

PI So, 

0130 

0105 

0177 

PI 77, 

0177 

0106 

0200 

P200, 

0300 

0107 

0200 

P20O, 

0200 

0150 

0377 

P37T, 

0377 

0151 

0000 

PA00, 

0000 

0152 

1000 

P1000, 

1000 


/HAINDEC-08-DILAC-B-L PAL10 VlflgA 2B-MAY-76 9108 


0153 

7777 

HI, 

7777 


0150 

7776 

H2, 

7776 


0155 

7775 

H3, 

77T5 


0156 

7770 

HO, 

7770 


0157 

7771 

H7, 

7771 


0160 

7766 

HIS, 

7766 


0161 

7763 

MIS, 

7763 


0162 

7760 

H20, 

7760 


0163 

7755 

H23, 

7755 


0160 

7753 

H25, 

7753 


0165 

7750 

M30, 

7750 


0166 

7703 

H35, 

7703 


0167 

7702 

M36, 

7702 


0170 

7700 

HO0, 

7700 


0171 

7722 

M56, 

7722 


0172 

7700 

H100, 

7700 


0173 

7630 

Mlflfl, 

7634 


0170 

7601 

H17T, 

7601 




/SUBROUTINE CALL EQUATES 


0055 


TYPE«JMS I 

TTYPE 


5065 


EXITtjMP I 

TEXIT 


0056 


L0AD«JMS I 

TLOAO 


0057 


HOLO«JMS I 

THOLO 


0060 


CHECKiJMS I 

TCHECK 


0063 


ERRORiJHS I 

TERROR 


0461 


PRINT»JMS I 

TPRINT 


0460 


hloadiJms I 

tmload 


0521 


GETSW.JMS I 

TGETSW 


0462 


PRTHOR*JMS I 

TPRHOR 
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/TYPE ASCII STRING ON CONSOLE 
/EXIT TEST 

/LOAD SINGLE CHAR TO LA180 
/WAIT POR OPERATOR 
/CHECK POR CONTROL 
/ERROR REPORT 

/PRINT ASCII STRING ON LA1B0 
/LOAD MULTIPLE CHARS TO LA180 
/GET SWITCH REGISTER SETTING 
/PRINT TEST HEADER ON LA180 


5E0 0033 


/LINE PRINTER INSTRUCTIONS 


6661 


PBKF-66M 

/SKIP ON CHAR FLAG 

6662 


PCLF-6662 

/clear char flag 

6660 


PSTB»666fl 

/LOAD BUFFER 

6665 


P8IE»6665 

/enable interrupt 

6666 


PCLP*6666 

/CLEAR FLAG S LOAD CHAR 


/0K8-EA 

A OKS-EC CLOCK 

INSTRUCTIONS 

6131 


CLEI*6131 

/ENABLE CLOCK INTERRUPT 

6132 


CLDH6132 

/DISABLE CLOCK INTERRUPT 

6133 


CLSK*6133 

/SKIP ON CLOCK FLAG, AND CLEAR FLAG 


/PDP-SA 

OPTION BOARD »l 

PARALLEL I/O INSTRUCTIONS 

6570 


OBST»65T0 

/SKIP ON DATA ACCEPTED AND CLEAR DATA 
/DATA ACCEPTED AND DATA AVAILABLE 

6571 


OBSK *6571 

/SKIP ON DATA READY 

6572 


DBR0*6572 

/READ DATA INTO AC 01-1 i 

6573 


DBCF«6S73 

/CLEAR DATA READY ISSUE DATA ACCEPTER OUT 




/MAlND£C-08-OIl.AC-8-L 

PAL10 

V142 A 

28-MAY-76 
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SEQ 

0024 



457a 


0870*6574 

/LOAO AC 0-11 INTO BUFFER AND TRANSMIT - 






4575 


D8SE*6575 

/SET PARALLEL I/O INTERRUPT ENABLE 






6576 


08CE*6576 

/CLEAR PARALLEL I/O INTERRUPT ENABLE 






6577 


0888*6577 

/ISSUE DATA STROBE PULSE 







/UTARTING A00RE3SES 







0200 


*200 







0200 

5210 


JMP 

START 

/GENERAL DIAGNOSTIC STARTING AOR 





0201 

5213 


JMP 

RESTRT 

/RESTART, SKIP OPR INTERVENTION TESTS 





0202 

5217 


JMP 

CONTRL 

/GO DIRECTLY TO OPERATOR CONTROL 






0210 


*210 

} 






0210 

7300 

START, 

cla cut- 


/CLEAR 




<&■ 

0211 

3023 


DCA 

tstnm 

/SET TEST NUHRER TO ZERO 





0212 

5221 


JMP 

STARTX 

/INITIALIZE 





0213 

7300 

RE8TRT, 

CLA Cil 


/clear 





0214 

1377 


TAO 

(20 

/GET CONSTANT 





0215 

3023 


DCA 

TSTNM 

/SET TEST #20 





0216 

5221 


JMP 

STARTX 

/INITIALIZE 





0217 

7240 

CONTRL, 

CLA CMA 


/SET AC « -1 




■*' 

0220 

3023 


OCA 

TSTNM 

/SET CONTROL FLAG 





0221 

6002 

STARTXi 

I OF 


/INTERRUPTS OFF 





0222 

6132 


CLDJ 







0223 

7300 


CLA CLt 







0224 

4505 


JHS I 

TPSIE 






0225 

4521 


GET8W 


/GET SW REG 





0226 

0150 


AND 

P377 

/SAVE BITS 04-11 





0227 

7041 


CIA 


/negate value 





0230 

3026 


DCA 

WIDTH 

/STORE # COLUMNS 




/ —\ 

0231 

1126 


TAO 

P2 

/CHECK COLUMN SELECTION 




f \ 

0232 

1026 


TAD 

WIDTH 






0233 

7740 


8MA SZ* 

CLA 

/* COLUMNS < 2 ? 





0234 

5241 


JMP 

START2 

/YES, SET TO 132(10) 





0235 

1147 


TAD 

P20O 

/NO, CHECK AGAIN 





0236 

1026 


TAD 

WIDTH 






0237 

7700 


8HA CL* 


/# COLUMNS > 132(10) 7 





0240 

5243 


JMP 

.*3 

/NO, CONTINUE 





0241 

1376 

8TART2, 

TAD 

(-204 

/SET COLUMN COUNT TO 132(10) 





0242 

3026 


DCA 

WIDTH 

/STORE VALUE 





0243 

3052 


DCA 

TLOOP . 

/clear program flags 





0244 

3050 


DCA 

3TR0NE 






0245 

3051 


OCA 

TRONE 






0246 

1125 


TAD 

LIERR 

/RESET INTERRUPT ERROR 





0247 

3002 


OCA 

ISRV 






0250 

1145 


TAD 

P177 

/SET LA 180 READY FLAG 





0251 

4506 


JM8 I 

tpclp 






0252 

4471 


JHS I 

TMIOT 

/SET IOTS FOR TTY S PRINTFR 





0253 

4501 


JM8 I 

TTLS 

/CLEAR FLAG 




’ ' 

/MAINDEC-08-DILAC-B-L 

PAL10 

V142A 

28-MAY-76 
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SEO 

0025 


0254 

4333 


JHS 

DELAY 

/WAIT 130 milliseconds 





0255 

4476 


JHS I 

TT3F 

/SKIP IF FLAG IS SET 





0256 

7610 


SKP CL* 


/AC « 0, NO TERMINAL 





0257 

7240 


CLA CMA 


/AC • -l, TERMINAL EXISTS 





0260 

3053 


DCA 

tpflg 

/STORE TERMINAL FLAG 





0261 

1053 


TAD 

tpflg 

/CHECK FOR CONSOLE 





0262 

7640 


SZA CL* 


/SKIP IF NONE 





0263 

5266 


JMP 

STARTS 

/CONTINUE 





0264 

4461 


PRINT 


/PRINT NO CONSOLE MESG ON LA1B0 





0265 

5231 


NCHSG 







0266 

7410 

STARTB, 

SKP 







0267 

5274 


JMP 

STARTS 






0270 

4455 


TYPE 


/TYPE TITLE HESSAGE ON TERMINAL 





0271 

4716 


HEADER 







0272 

1375 


TAD 

(NOP) 

/SKIP TITLE HSG THERE AFTER 





0273 

3266 


DCA 

STARTS 






0274 

1023 

START5, 

TAD 

TSTNM 

/SET TEST # 





0275 

7700 


SMA CL* 


/WANT CONTROL? 





027fc 

5306 


JMP 

START7 

/NO, CONTINUE 





0277 

1053 

start?, 

TAO 

TPFLG 

/yes, TERMINAL there 





0300 

7640 


SZA CL* 







0301 

5466 


JMP I 

TK8DST 

/yes, GO TO kyrd control 





0302 

5467, 


JMP I 

TSELCT 

/no, DEFAULT TO SW REG CONTROL 





0303 

7640 

STARTS, 

SZA CL* 







0304 

5277 


JMP 

START? 

/GO TO CONTROL IF NO TEST IN TABLE 





0305 

2023 


ISZ 

TSTNM 

/INC TEST # 





0306 

4521 

START7, 

GETSW 


/GET SW REG 





0307 

0151 


AND 

P400 

/MASK SW3 




& 

0310 

7640 


SZA CL* 


/WANT TEST SELECTION? 

* 




0311 

5467 


JMP J 

TSELCT 

/YES, GO TO TEST SELECTION HALT 





0312 

1070 


TAD 

TT AT 

/GET TABLE AOR 





0313 

1023 


TAD 

TSTNM 

/ADO TEST # 





0314 

3041 


OCA 

TA8PTR 

/STORE POINTER 





0315 

1441 


TAD I 

T A8PTR 

/GET TEST ADDRESS 





0316 

7550 


SNA SPA 


/test in table? 





0317 

5303 


JMP 

STARTS 

/NO, INC TEST ADR 





0320 

3042 


DCA 

TSTPTR 

/YES, STORE TEST AOR 





0321 

5442 


JMP I 

TSTPTR 

/GO TO TEST 







/routine to get 

SWITCH SETTINGS 

• 





0322 

0000 

RGETSW, 

0 







0323 

7300 


CLA CLL 


/CLEAR AC AND LINK 





0324 

1021 


tad 

PARAM 

/CHECK IF HAVE HARDWARE SWR 




N 

0325 

7710 


SPA CL* 


/SKIP IF NO 




' ; 

0326 

5331 


JMP 

.*3 






0327 

1020 


TAO 

SWITCH 

/GET SOFTWARE SWITCHES 





0330 

5722 


JMP I 

RGETSW 

/RETURN 





0331 

7604 


LAS 


/GET HARDWARE SWITCHES 





0332 

5722 


JMP I 

RGETSW 

/return 







/MAXNOEC-0fl«OIU*C»Q-t PAU1C V14SA SS-MAY w?f» 
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8EG 0026 


/ROUTINE TO DECAY ABOUT 130 MILLI8ECONOS 
/USING INSTRUCTION TIMING, 


0333 

0000 

DELAY, 

0 



0330 

7300 


CLA CLL 


/clear 

0333 

3303 


DCA 

DELAYS 

/SET DELAY COUNT 

0336 

1370 


TAD 

(-10 


0337 

3306 


DCA 

DELAYS 


0300 

2303 


ISZ 

DELAYS 

/nELAY 

0301 

5300 


JMP 

.-1 


0302 

2306 


ISZ 

DELAYS 


0303 

5300 


JMP 

.*3 


0300 

3733 


JMP I 

DELAY 

/RETURN 

0303 

0000 

DELAY0, 

0000 


/oelay COUNTS 

0306 

7770 

DELAY1, 

7770 





/ROUTINE TO REPORT UNEXPECTED INTERRUPTS DURING EXECUTION 

0307 0063 IERROR, ERROR /REPORT ERROR 

0330 0010 12 

0331 5000 JMP I 0 /RETURN I CONTINUE IP POSSIBLE 

0370 77T0 >. 

0373 7000 ? 

0376 7370 

0377 0020 

0000 PAGE 

/OPERATOR INTERVENTION TESTS 

/TEST 0 - INTERFACE I CONTROL TESTS 


/TEST READY BIT, PRINTER OPP LINE - POWER OPP 


0000 

4455 

TE8T0, 

1 TYPE 


/TYFE INSTRUCTIONS 

0001 

3230 


T0M8G0 



0002 

4437 


HOLD 


/WAIT for OPERATOR 

0003 

0464 

T0AC, 

CHECK 


/CHECK FOR CONTROL 

0000 

7300 


CLA CLL 


/CLEAR AC AND LINK 

0i}05 

1145 


TAD 

P17T 

/SEND RUBOUT 

0006 

4506 


JMS I 

tpclp 


0007 

4316 


JH8 I 

TDELAY 

/DELAY 150 MSEC FOR FLAG 

0010 

4302 


JHS I 

TFSKF 

/SKIP ON READY 

0011 

3213 


JMP 

T0AA 

/OK, READY CLEAR 

0412 

4463 


ERROR 


/READY SET, POWER OFF 

0413 

0001 


1 



0010 

3203 


JMP 

T0AC 

/retest 



/TEST 

READY BIT, 

, PRINTER OFF 

LINE - POWER ON 

0415 

4453 

T0AA, 

TYPE 


/TYPE INSTRUCTIONS, TURN POWER ON 

0416 

3270 


T0MSG1 
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0017 

4437 


HOLD 


/WAIT FOR OPERATOR 

0420 

4464 

T0AB, 

CHECK 


/CHECK FOR CONTROL 

0021 

7300 


CLA CLL 


/CLEAR AC AND LINK 

0022 

1145 


TAD 

PITT 

/SEND RUBOUT 

0423 

4306 


JMS I 

TPCLP 


0020 

4316 


JHS I 

TDELAY 

/DELAY 150 H3EC FOR FLAG 

0425 

4302 


JMS I 

TPSKF 

/SKIP ON READY 

0426 

3232 


JMP 

70S 

/OK, READY CLEAR 

0427 

0463 


ERROR 


/READY SET, PRINTER OFF LINE 

0430 

0002 


2 



0031 

3220 


JMP 

T0AB 

/RESTEST 



/TEST 

READY BIT, 

, PRINTER ON 

LINE 

0432 

4033 

T0B, 

TYPE 


/TYPE INSTR, TURN ON LINE 

0433 

3302 


T0MSG2 



0434 

0457 


HOLD 


/WAIT FOR OPERATOR 

0435 

4060 

T0C, 

CHECK 


/CHECK FOR CONTROL 

0436 

7300 


CLA CLL 


/CLEAR AC AND LINK 

0437 

1143 


TAD 

P1T7 

/SEND RUBOUT 

0440 

0506 


JH8 I 

TPCLP 


0441 

4516 


JMS I 

TDELAY 

/DELAY 150 MSEC FOR FLAG 

0442 

0502 


JMS I 

TPSKF 

/SKIP ON READY 

0443 

3253 


JMP 

.710 

/READY NOT SET 

0444 

4777' 


JMS 

0P1CHK 

/CHECK TO SEE IF PARALLEL I/O 

0443 

0447 


.*2 


/WAS PARALLEL I/O 

0446 

3256 


JMP 

T0E 

/OK-REAOY SET 

0007 

1143 


TAO 

P1T7 

/RESET DATA ACCEPTED FLAG 

0450 

4306 


JMS I 

7PCLP 

/GO load THE BUFFER 

0431 

0316 


JMS I 

TDELAY 


0432 

5236 


JMP 

TOE 

/CONTINUE THE TEST 

0433 

4063 


ERROR 


/REAOY CLEAR, PRINTER ON LINE 

0450 

0003 


3 



0055 

5233 


JMP 

TOC 

/retest 



/TEST 

PAPER OUT 

SWITCH 


0436 

0055 

T0E, 

TYPE 


/TYPE INSTR, PAPER OUT 

0057 

5320 


T0M8G3 



0460 

0457 


HOLD 


/WAIT FDR OPERATOR 

0461 

0060 

T0F, 

CHECK 


/CHECK FOR CONTROL 

0062 

0061 


PRINT 



0463 

5400 


LP 


/SEND LF 

0460 

4316 


JMS I 

TDELAY 

/DELAY FOR 150 MSEC 

0065 

4502 


JHS I 

TPSKF 

/SKIP ON READY 

0466 

5272 


JMP 

T0H 

/OK, READY CLEAR 

0467 

4463 


ERROR 


/READY SET, PAPER OUT, ON LINE 

0070 

0004 


4 



0471 

5261 


JMP 

T0F 

/RETEST 


/TE8T ABILITY To CLEAR ERROR CONDITION 



0072 0055 

0073 S335 

0070 0057 


T0H 


TYPE 

T0MSGO 

HOLO 


/TYPE INSTR, RESET & ON LINE 
/WAIT FOR OPERATOR 
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SEO 


0475 

4464 

T0I, 

CHECK 


/CHECK FOR CONTROL 

0476 

7300 


CL* CLL 


/CLEAR AC AND LINK 

0477 

1145 


TAO 

P177 

/SEND RUBOUT 

0500 

4506 


JHS I 

TPCLP 


0501 

4516 


JHS I 

toelay 

/DELAY 150 MSEC FOR 

0502 

4502 


JHS ! 

TPSKF 

/SKIP ON READY 

0503 

7410 


SKP 



0504 

5310 


JHP 

T0K 

/OKi READY SET 

0505 

4463 


ERROR 


/reaoy not SET 

0506 

0005 


5 



0507 

5275 


JHP 

70! 

/RETEST 



/TEST 

ABILITY Tc 

1 CLEAR READY 

FLAG 


0510 

4464 

T0K, 

CHECK 


/CHECK FOR CONTROL 

0511 

4503 


JHS I 

TPCLP 

/clear flag 

0512 

4502 


JHS I 

TPSKF 

/SKIP ON CHAR FLAG 

0513 

5317 


JHP 

T0L 

/OK, FLAG CLEAR 

0514 

4463 


ERROR 


/FLAG DID NOT CLEAR 

0515 

0006 


6 


/retest 

0516 

5310 


JHP 

T0K 



/TEST 

THAT SENDING CHAR WILL 

RESET READY FLAG 

0517 

4464 

T0L, 

CHECK 



0520 

T300 


CLA CLL 



0521 

1143 


TAO 

P177 

/GET RUBOUT 

0522 

4504 


JHS I 

TPSTB 

/LOAD CHAR 

0523 

4516 


JHS I 

toelay 

/WAIT 150 HSEC 

0524 

4302 


JHS I 

TPSKF 

/SKIP ON CHAR FLAG 

0525 

7410 


■ SKP 



0526 

5332 


JHP 

T0H 


0527 

4463 


ERROR 


/READY DID NOT SET 

0530 

0007 


7 



0531 

5310 


JHP 

T0K 

/RETEST CLEAR & SET FLAG 


/TEST AGAIN USING SINGLE INSTR 


0532 

4464 

T0H, 

CHECK 


/CHECK FOR CONTROL 

0533 

4776 * 


JHS 

5ETSKP 

/GO SETUP FOR SKIP IOT 

0534 

1145 


TAD 

P17 7 

/SET RUBOUT 

0533 

4306 


JHS I 

TPCLP 

/load CHAR 

0536 

6661 

T0HIOT, 

PSKP/OflST 

/SKIP ON CHAR FLAG 

0337 

3343 


JHP 

T0N 

/OK, FLAG CLEAR 

0540 

4463 


ERROR 


/FLAG DIO NOT CLEAR 

0541 

0010 


10 



' 0542 

5332 


JHP 

T0H 

/retest 

0543 

4516 

TON, 

JHS I 

TOELAY 

/delay 150 HSEC 

0544 

4502 


JHS I 

TPSKF 

/SKIP ON char flag 

0345 

7410 


SKP 



0546 

5352 


JHP 

T0O 

/OK, FLAG SET 

0547 

4463 


ERROR 


/flag did not set 

0530 

0011 


11 



0551 

3332 


JHP 

T0H 

/retest 
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/CHECK FOR UNEXPECTED INTERRUPTS 


0552 

4464 

TOO, 

CHECK 


/CHECK FOR CONTROL 

0553 

7300 


CLA CLL 



0554 

13T5 


TAO 

(TOP 

/SET INT RETURN 

0555 

3002 


OCA 

ISRV 


0556 

44T3 


JHS I 

TKCC 


0557 

447? 


JHS I 

TTCF 

/CLEAR CONSOLE PTR FLAG 

0560 

4503 


JHS I 

TPCLP 

/CLEAR LAIB0 READY BIT 

0561 

7300 


CLA CLL 



0562 

4505 


JHS I 

TPSIE 

/DISABLE LA 180 INTERRUPT 

0563 

6001 


ION 


/ENABLE INTERRUPT SYSTEM 

0564 

7000 


NOP 



0565 

7000 


NOP 



0566 

6002 


IOF 


/DISABLE INTERRUPT SYSTEM 

056T 

5773 


JHP I 

LT0D 

/OK, CONTINUE 

0570 

0463 

TOP, 

ERROR 


/UNEXPECTED INTERRUPT 

05T1 

0012 


12 



0572 

5352 


JHP 

700 

/RETEST 

0573 

0600 

LT0Q, 

T0Q 



0575 

0570 





05Tb 

1540 





0577 

3142 






0600 


PAGE 






/CHECK 

THAT 

NO 

INTERRUPT 

OCCURS WITH ready BIT CLEAR 

0600 

4464 

TOO, 

CHECK 


/CHECK FOR CONTROL 

0601 

7300 


CLA 

CLL 



0602 

1377 


TAO 


CT0R 

/SET INTERRUPT RETURN 

0603 

3002 


DCA 


ISRV 


0604 

4073 


JHS 

I 

TKCC 


0605 

4477 


JHS 

I 

TTCP 

/CLEAR CONSOLE PTR FLAG 

0606 

4503 


JHS 

I 

tpclf 

/CLEAR LA 150 REAOY BIT 

060T 

7201 


CLA 

IAC 



0610 

4505 


JHS 

I 

TPSIE 

/ENABLE L A 180 INTERRUPT 

0611 

6001 


ION 



/ENABLE INTERRUPT SYSTEM 

0612 

7000 


NOP 



/DELAY a INSTRUCTION TIMES 

0613 

7000 


NOP 




0614 

6002 


IOF 



/DISABLE INTERRUPT SYSTEM 

0615 

7300 


CLA 

CLL 



0616 

4505 


JHS 

I 

TPSIE 

/OTSABLE LA 1B0 INTERRUPT 

0617 

5225 


JHP 


70S 


0620 

7300 

TOR, 

CLA 

CLL 



0621 

4505 


JHS 

I 

TPSIE 

/DISABLE LA180 INTERRUPT 

0622 

4463 


• ERROR 


/INTERRUPT WITH READY BIT CLEAR 

0623 

0013 


13 




0624 

5200 


JHP 


T0G 

/RETEST 



/CHECK 

THAT 

INTERRUPT OCCURS WITH READY BIT SET 

0625 

4464 

T08, 

CHECK 


/CHECK FOR CONTROL 

0626 

7300 


CLA 

cll 



0627 

1376 


TAO 


CT0W 

/SET INTER RETURN 


0028 


0029 
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SEO 0030 


0630 

3002 


OCA 


ISRV 


0631 

1143 


TAD 


P177 

/SEND CHAR TO SET FLAG 

0632 

4506 


JMS 

I 

TPCLP 


0633 

4773'' 


JMS 


OP1CHK 

/GO CHECK FOR PARALLEL I/O 

0634 

0640 


.74 



/ON PARALLEL I/O - GO DELAY 

0635 

4502 


JMS 

I 

TPSKP 

/SKIP ON READY 

0636 

5235 


JMP 


,«1 

/WAIT for ready 

0637 

7410 


SKP 




0640 

4516 


JMS 

I 

TDELAY 


0641 

4473 


JMS 

I 

TKCC 


0642 

4477 


JMS 

I 

TTCP 

/clear console ptr FLAG 

0643 

7201 


CLA 

I AC 



0644 

4503 


JMS 

I 

TPSIE 

/ENABLE LA 180 INTERRUPT 

0645 

6001 


ION 



/ENABLE INTERRUPT SYSTEM 

0646 

7000 


NOP 



/wait 2 INSTR TIMES 

0647 

7000 


NOP 




0650 

6002 


IOF 



/DISABLE INTERRUPT SYSTEM 

0651 

7300 


CLA 

cll 



06S2 

4505 


JMS 

I 

TPSIE 

/DISABLE LA180 INTERRUPT 

0653 

4463 


ERROR 


/DIO NOT INTERi READY SET 

0654 

0014 


14 




0655 

5225 


JMP 


T0S 

/RETEST 

0656 

7300 

T0W, 

CLA 

cll 



0657 

4505 


JMS 

1 

TPSIE 

/DISABLE LA1S0 INTERRUPT 



/TEST NO INTERRUPT OCCURS WITH UA180 INTERRUPT ENABLEO, REAOT SET, 
/BUT CPU INTERRUPT SYSTEM OFF. 


0660 

4464 

T0U, 

CHECK 


/CHECK FOR CONTROL 

0661 

7300 


CLA CLL 



0662 

1374 


TAO 

CT0V 

/SET INTER RETURN ADR 

0663 

3002 


OCA 

ISRV 


0664 

1145 


TAD 

P177 

/SEND CHAR TO SET FLAG 

0663 

4306 , 


JMS I 

TPCLP 


0666 

4773' 


JMS 

OP1CHK 

/GO CHECK FOR PARALLEL I/O 

0667 

0673 


.74 


/ADDRESS FOR PARALLEL I/O > DELAY 

0670 

4502 


JMS I 

TPSKF 

/WAIT FOR READY 

0671 

3270 


JMP 

.-1 


0672 

7410 


SKP 



0673 

4516 


JMS I 

TDELAY 

/DELAY TO ALLOW FLAG TO SET 

0674 

4473 


JMS I 

TKCC 


0673 

4477 


JH8 I 

TTCF 

/clear console ptr plag 

0676 

7201 


CLA IAC 



0677 

4303 


JMS I 

TPSIE 

/ENABLE LA180 INTERRUPT 

0700 

7000 


NOP 


/WAIT 2 IN8TR TIMES 

0701 

7000 


NOP 



0702 

7300 


CLA CLL 



0703 

4S0S 


JM8 I 

TPSIE 

/018ABLE LA180 INTERRUPT 

0704 

1125 


TAO 

LIERR 

/SET INTERRUPT ERROR ADR 

0705 

3002 


dca 

ISRV 


0706 

3463 


EXIT 


/EXIT TEST 

0707 

7300 

70V, 

CLA CLL 



0710 

4505 


JMS I 

TPSIE 

/DISABLE LA180 INTERRUPT 

0711 

4463 


ERROR 


/INTERRUPT WITH SYSTEM DISABLED 
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0712 

0015 


15 



0713 

3260 


JMP 

T0U 

/RETEST 



/TEST 

l • TOP OP PORM SWITCH 

TEST 

0714 

4462 

TEST1 , 

PRTHOR 


/PRINT TEST HEADER 

0715 

1373 


TAD 

CT1TA6 

0716 

3041 


OCA 

TA8PTR 

/STORE TABLE POINTER 

0717 

1163 


' TAO 

H3B 


0720 

3034 


ncA 

COUNT 

/SET CASH COUNT 

0721 

1136 


TAD 

P55 

/SET DASH CHAR 

0722 

4460 


MLOAO 


/LOAD DASHED LINE 

0723 

4461 


PRINT 


0724 

3437 


CR 


/PRINT LINE 

0725 

4453 

T1A, 

TYPE 


/TYPE INSTRUCTIONS 

0726 

5375 


TIMSG3 


/SET SWITCH SETTING FOR MSG 

0727 

1041 


TAD 

TA8PTR 

0730 

3332 


DCA 

.72 


0731 

4453 


TYPE 



0732 

0000 


0 



0733 

4455 


TYPE 


/FINISH INSTR 

0734 

5412 


T1HSG4 



0735 

4457 


HOLD 


/wait por operator 

0736 

4464 


CHECK 


/CHECK POR CONTROL 

0737 

4461 


PRINT 


/ISSUE PF 

0740 

5442 


FP 


0741 

4461 


PRINT 


/PRINT reference line 

0742 

5355 


T1MSG1 


0743 

1041 


TAO 

TABPTR 

/SET PF LENGTH FOR ME8G 

0744 

3346 


DCA 

.72 

0745 

4461 


PRINT 



0746 

0000 


0 



0747 

4461 


PRINT 


/FINISH MESS 

0750 

5361 


TJHSG2 


0751 

2041 


ISZ 

TABPTR 

/INC TABLE POINTER 

0732 

2041 


ISZ 

TABPTR 

0753 

1441 


TAD I 

TABPTR 

/CHECK TABLE TO SEE IF DONE 

0754 

7640 


8ZA CLA 


0755 

5325 


JMP 

T1A 

/CONTINUE 

0756 

4461 


PRINT 



0757 

3440 


LF 


/ADVANCE PAPER 

0760 

5465 


EXIT 


/EXIT 



0773 5447 

0774 0707 

0775 3148 

0776 065b 

0777 0680 

1000 



print speed tihing test 


/ 

/A SWIRL, PATTERN IS PRINTED FOR ONE PULI. MINUTE 
/WHILE THE NUMBER OP LINES PRINTED IS COUNTED. 
/TIMING WILL BE DONE BY DK8-EA OR DKS-EC CLOCK 
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SEO 0032 
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/OPTION IF EITHER 19 AVAILABLE ANO LOCATION 
/"CKFLAG* IS PRESET WITH THE TIME COUNT, 

/Ir CKFLAG IS ZERO, MANUAL TIMING WILL BE USED TO 
/OBTAIN AN APPROXIMATE PRINT TIMING, 

/IF A HARDWARE SWITCH REGISTER IS NOT AVAILABLE, THIS TEST 
/CANNOT BE RUN WITHOUT A CLOCX OPTION BEING AVAILABLE, 

/THE PROGRAM WILL AUTOMATICALLY SKIP THIS TEST IF IT CANNOT BE RUN. 


1000 

4462 

TEST2, 

PRTHDR 


/PRINT TEST HEADER 

1001 

3040 


DCA 

PASCNT 

/CLEAR PASS COUNT (LINE COUNT) 

1002 ' 

1054 


TAO 

CKFLAG 

/CLOCK OPTION AVAILABLE? 

1003 

7640 


SZA CL* 



100 a 

5230 


JMP 

T2C 

/YES, GO TO CLOCK SET-UP 

1005 

1021 


TAO 

param 

' /HAVE HARDWARE SWITCH REGISTER? 

1006 

7710 


SPA CLA 



1007 

5215 


JMP 

T2A 

/YES, CONTINUE 

1010 

4461 


PRINT 


/NO, PRINT ERROR MESG 

1011 

5151 


T2EM 



1012 

4455 


TYPE 



1013 

5151 


T2EM 



1014 

5465 


EXIT 


/EXIT TEST 



/MANUAL 

TIMING START-UP 


1015 

4455 

TEA, 

TYPE 


/PRINT INSRTUCTION5 

1016 

5067 


T2H1 



1017 

4455 


TYPE 



1020 

5105 


T2H2 



1021 

4455 


TYPE 



1022 

5126 


T2H3 



1023 

4521 

T2B, 

GETSW 


/GET SWITCHES 

1024 

0146 


AND 

P200 

/MASK SWITCH a 

1025 

7650 


SNA CL* 


/START? - SWITCH UP? 

1026 

5223 


JMP 

T2B 

/NO, WAIT FOR SWITCH TO GO UP 

1027 

5244 


JMP 

T2SP 

/Y£S, START PRINTING 



/CLOCK 

OPTION START-UP 


1030 

1377 

TEC, 

TAD 

(6650 

/SET TIME COUNT FOR ONE MINUTE 

1031 

3036 


DCA 

LPCNT 


1032 

1120 


TAD 

TCKSRV 


1033 

3002 


DCA 

ISRV 


1034 

1054 


TAO 

CKFLAG 


1035 

3037 


OCA 

CKCNT 


1036 

4473 


JMS I 

TKCC 


1037 

4477 


JMS I 

TTCF 


1040 

7300 


CLA CLU 



1041 

4505 


JMS I 

TPSIE 

/DISABLE PRINTER INTERRUPT 

1042 

6131 


CLEI 


/SET CLOCK INTERRUPT ENABLE 

1043 

6001 


ION 


/INTERRUPT SYSTEM ON 



/PRINTING ROUTINE FOR TEST 

2 

1044 

7201 

TZSP, 

CLA JAC 


/SET START CHAR 

1045 

1134 


TAD 

P 40 
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1046 

3032 


OCA 

CHARE 

/SAVE IT 

1047 

1032 

T2PA, 

TAO 

CHAR2 

/GET START CHAR 

1050 

3031 


OCA 

CHAR 

/SET CHARACTER TO BE LOADEO 

1051 

1026 


TAO 

WIDTH 

/SET COLUMN COUNT 

1052 

3034 


DCA 

COUNT 


1053 

1031 

T2PC, 

TAO 

CHAR 

/GET CHAR 

1054 

4456 


LOAD 


/LOAD CHAR 

1055 

2034 


ISZ 

COUNT 

/INC CHAR COUNT 

1056 

7410 


SKP 


/CONTINUE LINE 

1057 

5270 


JMP 

T2PD 

/SEND LF IF END OF LINE 

1060 

2031 


ISZ 

CHAR 

/SET NEXT CHAR 

1061 

1174 


TAO 

M1 77 

/CHECK CHAR 

1362 

1031 


TAO 

CHAR 


1063 

7640 


SZA CL* 



1064 

5253 


JMP 

T2PC 

/OK, CONTINUE 

1065 

1134 


TAD 

P40 

/RESET CHAR TO SPACE 

1066 

3031 


OCA 

CHAR 

/STORE NEW CHAR 

1067 

5253 


JMP 

T2PC 

/CONTINUE 

1070 

4461 

T2PO, 

PRINT 


/SEND LF TO PRINT LINE 

1071 

5440 


LF 



1072 

2040 


ISZ 

PASCNT 

/INC LINE COUNT 

1073 

1054 


TAD 

CKFLAG 

/USING CLOCK? 

1074 

7640 


SZA CL* 



1075 

5302 


JMP 

T2PE 

/YES, BYPASS MANUAL TIMING 

1076 

4521 


GETSW 


/GET SWITCH REGISTER 

1077 

0146 


AND 

P200 

/MASK SWITCH 4 

1100 

7650 


SNA CL* 


/STILL UP? 

1101 

5314 


JMP 

T2SP0 

/NO, EXIT PRINTING ROUTINE - PRINT COUNT 

1102 

2032 

T2PE, 

isz 

CHAR2 

/SET NEW START CHAR (SWIRL) 

1103 

1174 


TAD 

M177 

/CHECK CHAR 

1104 

1032 


TAO 

CHAR2 


1105 

7640 


SZA CL* 



1106 

5247 


JMP 

T2PA 

/OK, CONTINUE 

1107 

5244 


JMP 

T2SP 

/RESET START CHAR 



/ROUTINE TO PRINT NUMBER OF 

LINES PRINTEO 

1110 

6002 

T2SPDC, 

I OF 


/INTERRUPT SYSTEM OFF 

1111 

6132 


CLOI 


/DISABLE CLOCK INTERRUPT 

1112 

1 125 


TAO 

LIERR 

/RESET UNEXPECTED INTERRUPT ERROR 

1113 

3002 


OCA 

ISRV 


1114 

7300 

T23PD, 

CLA CLl 


/CLEAR AC AND LINK 

1115 

U«5 


TAO 

P177 

/GET RUBOUT 

1116 

4456 


LOAD 


/CLEAR LA 180 BUFFER 

1117 

4455 


TYPE 


/START MESG 

1120 

5171 


PRSP1 



1121 

4461 


PRINT 



1122 

5171 


PRSP1 



1123 

1054 


TAO 

CKFLAG 

/CHECK IF USED CLOCK 

1124 

7640 


SZA CLA 



1125 

5332 


JMP 

T2S1 

/YES, SKIP WORD "APPROX" 

1126 

4455 


TYPE 


/NO, ADO WORD "APPROXIMATE" TO MESG 

1127 

5202 


PRIP2 



1130 

4461 


PRINT 



1131 

5202 


PR9P2 




SEO 0033 



<>148 PAGE 1-14 


SEG 0034 


/MAlND£C» 08 .OIUe-B-L 


1130 

1040 

1133 

4517 

1134 

4461 

1135 

3435 

1136 

4455 

1137 

5435 

1140 

4461 

1141 

9206 

1140 

4433 

1143 

9206 

1144 

1026 

1145 

7041 

1146 

4517 

1147 

4461 

1150 

5439 

1131 

4455 

1192 

9435 

1133 

4461 

1154 

3222 

1155 

4435 

1156 

5000 

1157 

3465 

1177 

6630 


1200 


PAL10 V1 42A 28-HAY-76 

T281, TAD PA9CNT 

JMS I TCNVRT 

PAINT 
CNVHSG 
TYPE 
CNVM8G 
PRINT 
PR8P3 
TYPE 
PR8P3 

TAD WIDTH 

CIA 

JMS I TCNVRT 

PRINT 

CNVHSG 

TYPE 

CNVHSG 

PRINT 

PR8P4 

TYPE 

PR8P4 

EXIT 


PAGE 


/GET LINE COUNT 

/CONVERT NUMBER TO ASCII HESG 

/PRINT IT 


/PRINT HORE OP MESG 


/GET « OP COLUMNS 
/CONVERT IT TO ASCII MESG 


/PINISH MESG & PRINT 


/EXIT TEST 


/PRINTING TESTS 


/TEST 00 . DATA TRANSFER PATHS TEST 
/ 

/THIS TEST PRINTS 16 LINES OP ALTERNATING X'S AND U'S IN A 
/CHECKERBOARD PATTERN 


1000 

4460 

TE8T20 

, PRTHOR 


/PRINT TEST HEADER 

1001 

1162 


TAD 

M20 

/SET LINE COUNT FOR 16 LINES 

1200 

3036 


OCA 

LPCNT 

/STORE COUNT 

1003 

1026 

T20A, 

TAD 

WIDTH 

/GET « COLUMNS 

1204 

3034 


OCA 

COUNT 

/STORE 

1205 

7001 


IAC 


/CHECK LINE COUNT 

1206 

3036 


AND 

LPCNT 


1207 

7640 


82A CLA 


/START CHAR »7 

1210 

3216 


JMP 

T20C 

/START WITH "U" 

1211 

137? 

720B, 

TAD 

<52 

/GET CHAR CODE 

1212 

4456 


LOAD 


/LOAD a 

1813 

1 2034 


I8Z 

COUNT 

/INC CHAR COUNT 

1214 

7410 


8KP 


/CONTINUE 

1213 

5222 


JMP 

T20D 

/PRINT LINE IP DONE LOAD 

1216 

1376 

7200, 

TAD 

(125 

/GET "U" CHAR CODE 

1217 

4456 


LOAD 


/LOAD CHAR 

1220 

2034 


ISZ 

COUNT 

/INC CHAR COUNT 

1221 

5211 


JHP 

T20S • 

/continue LOAD 

1222 

4461 

T20D, 

PRINT 


/PRINT LINE WHEN DONE LOAD 

1223 

5440 


LP 


/ADVANCE PAPER 

1224 

2036 


ISZ 

LPCNT 

/INC LINE COUNT 
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1225 

5203 


JHP 

T20A 

/FINISH TEST 

1226 

5465 


EXIT 


/EXIT 



/TES7 

21 „ HEAD 

POSITIONING test 



/THIS 

TEST PRINTS A SINGLE LINE 

OP ALTERNATING 0'S AND SPACES 



/THEN 

PILLS IN 

THE SPACES WITH 

X'S ONE AT A TIME 

1227 

4462 

TEST21 

, PRTHOR 


/PRINT TEST HEADER 

1230 

1026 


TAD 

WIDTH 

/GET « COLUMNS 

1231 

3034 


DCA 

COUNT 

/STORE 

1230 

1140 

T218, 

TAD 

P60 

/LOAD 0 

1233 

4456 


LOAD 



1334 

2034 


ISZ 

COUNT 

/INC CHAR COUNT, OONET 

1235 

7410 


SKP 


/NO, SEND SPACE 

1236 

5243 


JHP 

T21C 

/YES, SEND OR * PRINT LINE 

1237 

1134 


TAD 

P40 

/L0»0 SPACE 

1240 

4496 


LOAD 



1241 

2034 


ISZ 

COUNT 

/INC COUNT, DONE? 

1240 

5230 


JMP 

T01B 

/NO, CONTINUE LOAD 

1243 

4461 

T21C, 

PRINT 


/YES, PRINT LINE 

1244 

5437 


CR 



1243 

7040 


CLA CHA 


/SET ACi-1 

1246 

3273 


DCA 

T21W 

/STORE SPACE COUNT 

1247 

1273 

T21D, 

TAD 

T21W 

/SAVE SPACE COUNT 

1250 

3034 


DCA 

COUNT 


1251 

1134 


TAD 

P40 

/GET SPACE 

1232 

4460 


hload 


/LOAD SPACES 

1253 

1375 


TAD 

<130 

/GET X CHAR CODE 

1254 

4456 


LOAD 


/LOAD IT 

1255 

4461 


PRINT 


/PRINT LINE 

1256 

5437 


CR 



1057 

1154 


TAD 

M2 

/AOO 2 TO SPACE COUNT 

1260 

1273 


TAD 

T21W 


1261 

3273 


DCA 

T21W 

/STORE NEW COUNT 

1260 

7240 


CLA CHA 


/SET AC«-1 

1263 

1273 


TAD 

T21W 

/SUBTRACT SPACE COUNT 

1264 

7041 


CIA 


/hake it positive 

1265 

1026 


TAD 

WIDTH 

/AOO * COLUMNS 

1066 

7750 


8PA SNA 

CLA 

/DONE LINE? 

1267 

5247 


JHP 

T21D 

/NO CONTINUE 

1070 

4461 


PRINT 


/ADVANCE PAPER 

1271 

3440 


LP 



1272 

3465 


EXIT 


/EXIT 


SEO 0036 


12T3 0000 T21W, 0 

/TEST 00 - BACKSPACE TEST 
/ 

/TWO LINES OP X'S INTERSPACED WITH DASHES 

/WILL BE PRINTED by PRINTING A SLACH, EXECUTING A BACKSPACE, 
/AND THEN PRINTING A BACKSLASH TO KOHPLETE EACH X CHAR. 

/A MAX, OP 10T COLUMNS WILL 8E PRINTED. 


4460 


10T4 


TE8T20, PRTHDR 


/PRINT TEST HEADER 
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12TB 

1154 


TAD 

M2 

/9E7 LINE COUNT 

1376 

3036 


DC* 

LPCNT 

/STORE COUNT 

1277 

1026 

T22A, 

TAD 

WIDTH 

/GET « COLUMNS 

1300 

1145 


TAD 

P177 

/OVER 127? 

1301 

7710 


SPA CL* 



1302 

3305 


JHP 

.+3 


1303 

1026 


TAO 

WIDTH 


1304 

7410 


SKP 



1303 

1174 


TAD 

N177 

/YES, SET TO 127 

1306 

3034 


DCA 

COUNT 

/STORE COUNT 

1307 

1137 

T228, 

TAD 

P57 

/GET "/" CODE 

1310 

4456 


LOAD 


/LOAD 

1311 

1130 


TAO 

P 1 0 

/get backspace code 

1312 

4456 


LOAD 


/LO»D 

1313 

1144 


TAO 

P134 

/GET CODE 

1314 

4456 


LOAD 


/LOAD 

1315 

2034 


ISZ 

COUNT 

/INC COLUMN COUNT 

1316 

7410 


SKP 


/CONTINUE IF NOT DONE 

1317 

5324 


JHP 

T22C 

/PRINT LINE IF DONE 

1320 

1136 


TAD 

P35 

/GET DASH 

1321 

4456 


LOAD 


/LOAD 

1322 

2034 


ISZ 

COUNT 

/INC COUNT, DONET 

1323 

5307 


JHP 

T22B 

/NO, CONTINUE 

1324 

4461 

T22C. 

PRINT 


/YES, PRINT LINE 

1335 

3440 


LF 



1326 

2036 


ISZ 

LPCNT 

/INC LINE COUNT, DONET 

1327 

3277 


JHP 

T22A 

/NO, CONTINUE 

1330 

3463 


EXIT 


/YES, EXIT 



/TEST 

23 > CHARACTER GENERATOR 

TEST 


/ 

/THIS TEST PRINTS * SINGLE LINE (30 CHARACTERS LONG) OP EACH 
/PRINTABLE CHARACTER PRECEEDEO BY A LINE OF ALL SPACES 


1331 

4462 

TE8T23, 

PRTHDR 


/PRINT TEST HEADER 


1332 

1134 


TAO 

P40 

/SET START CHAR (SPACE) 


1333 

3031 


DCA 

CHAR 

/STORE IT 


1334 

1167 

T23A, 

TAD 

M36 

/SET COLUMN COUNT * 30 


1333 

3034 


DCA 

COUNT 

/STORE IT 


1336 

1031 


TAD 

CHAR 

/GET CHAR 


1337 

4460 


MLOAD 


/LOAD LINE 


1340 

4461 


PRINT 


/PRINT IT 


1341 

5440 


LF 




1342 

2031 


ISZ 

CHAR 

/SET NEXT CHAR 


1343 

1174 


TAD 

HI 77 

/CHECK CHAR 


1344 

1031 


TAD 

CHAR 



1345 

7640 


SZA CL* 


/DONE TEST? 


1346 

3334 


JHP 

T23A 

/NO, CONTINUE 


1347 

5465 


EXIT 


/YES, EXIT 


1375 

0130 






1376 

0123 






1377 

0032 







1400 


PAGE 
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SEQ 0037 


/TEST 30 - NON-PRINTABLE CHARACTER TEST 

/ 

/THIS TEST PRINTS A 30 LINE SWIRL PATTERN WITH NON-PRINTABLE CHARACTERS 
/LOADED BEFORE AND AFTER THE PRINTING CHARACTERS TO TEST ALL AREAS OF THE 
/CHARACTER BUFFER IN THE LA180. IF THIS TEST IS LOOPED ON, 

/THE SWIRL PATTERN WILL CONTINUE. 30 LINES PRINTTEO 
/EACH TIME THE TEST IS LOOPED. 


1400 

4462 

TEST24, 

PRTHDR 


/PRINT TEST HEADER 

1401 

1135 


TAD 

P41 

/SET START CHAR 

1402 

3031 


DCA 

CHAR 


1403 

1167 

T24H, 

TAO 

M36 


1404 

3036 


OCA 

LPCNT 

/SET LINE COUNT 

1403 

3040 


OCA 

PASCNT 

/CLEAR CHAR INC COUNT 

1406 

1026 


TAO 

WIDTH 


1407 

1150 


TAO 

P37T 

/BUFFER SIZE-COLUMN COUNT 

1410 

1166 

T24A, 

TAO 

H35 

/DIVIDE NON-PRINT CHAR COUNT BY 29 

1411 

7510 


SPA 



1412 

5215 


JHP 

T24B 


1413 

2040 


ISZ 

PASCNT 

/PASCNT«NON.PRINT CHAR INC COUNT 

1414 

3210 


JMP 

T24A 


1415 

7300 

T24B, 

CLA CLU 


/CLEAR NON-PRINT CHAR COUNT 2ND BLOCK 

1416 

3035 


DCA 

C0UNT2 


(417 

1035 

T24C, 

TAD 

C0UNT2 

/CALCULATE * NON-PRINT CHARS, 1ST BLOCK 

1420 

7041 


CIA 



1421 

1377 


TAO 

(-377 


1422 

1026 


TAO 

WIOTH 


1423 

4277 


JM3 

T24S 

/LOAD 1ST BLOCK OF NON-PRINT CHAR 

1424 

7300 


CLA CLL 


/CLEAR AC AND LINK 

1425 

1026 


TAO 

WIOTH 

/SET * PRINTABLE CHARS (COLUMN COUNT) 

1426 

3034 


DCA 

COUNT 


1427 

1031 


TAD 

CHAR 

/SET FORST PRINT CHAR 

1430 

3032 


DCA 

CHAR2 


1431 

1032 

T04O, 

TAD 

CHAR2 

/GET CHAR 

1432 

4456 


LOAD 


/LOAD PRINTABLE CHAR 

1433 

2034 


ISZ 

COUNT 

/INS CHAR COUNT 

1434 

7410 


SKP 


/NEXT CHAR 

1435 

5246 


JMP 

T24E 


1436 

2032 


ISZ 

CHAR2 


1437 

1032 


TAO 

CHAR2 

/CHECK CHAR 

1440 

1174 


TAO 

M177 

/CHAR.RUBOUT? 

1441 

7640 


SZA CL* 



1442 

3231 


JMP 

T240 

/NO, CONTINUE 

1443 

1134 


TAD 

P40 

/YES, RESET CHAR-SPACE 

1444 

3032 


DCA 

CHAR2 


1445 

5231 


JMP 

T240 

/CONTINUE 

1446 

1035 

T24E, 

TAO 

COUNTS 

/SET « NON-PPINT CHARS, 2ND BLOCK 

1447 

4277 


JMS 

T24S 

/LOAD 2ND BLOCK NON-PRINT CHARS 

1430 

4461 


PRINT 


/PRINT LINE 

1451 

3440 


LF 



1432 

1035 


TAO 

COUNT2 

/IN NON-PRINT CHAR COUNT, 2ND 8L0CK 

1453 

1040 


TAO 

PASCNT 


1434 

3035 


OCA 

COUNTS 


1455 

2031 


ISZ 

CHAR 

/INC START CHAR 

1436 

1031 


TAO 

CHAR 

/CHECK START CHAR 
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1457 

1174 


TAD 

Ml 77 


1460 

7640 


SZA CL* 



1461 

5264 


JHP 

.43 

/OK, CONTINUE 

1462 

1134 


TAD 

P40 

/RESET START CHAR 

1463 

3031 


DCA 

CHAR 


1464 

2036 


ISZ 

LPCNT 

/INC LINE COUNT 

1465 

5217 


JHP 

T24C 

/CONTINUE 

1466 

7300 

T24P i 

CLA CLL 



1467 

1052 


TAD 

TLOOP 

/LOOP ON TEST? 

1470 

7640 


SZA CL* 



1471 

3276 


JHP 

T24G 

/YES, CONTINUE SW 

1472 

4521 


GETSW 



1473 

0132 


AND 

P1000 

/LOOP ON TEST? 

1474 

7650 


SNA CL* 



1475 

5465 


EXIT 


/NO, EXIT TEST 

1476 

5203 

T24G. 

JHP 

T24H 

/LOOP ON TEST 


/ROUTINE TO LOAD NON-PRINTABLE CHARACTERS FOR TEST 24 


14TT 

0000 

T24S, 

0 



1500 

7550 


SPA SNA 


/GOOD CHAR COUNT? 

1501 

3677 


JMP I 

T24S 

/NO, RETURN 

1502 

7041 


CIA 


/YES, NEGATE IT 

1503 

3034 


DCA 

COUNT 

/SAVE IT 

1504 

3032 

T24SC, 

DCA 

CHARS 

/SET PIRST NON-PRINT CHAR 

1503 

1032 

T24SA, 

TAD 

CHARS 

/get CHAR 

1306 

4436 


LOAD 


/LOAD CHAR 

1307 

2234 


ISZ 

COUNT 

/INC COUNT 

1510 

7410 


SKP 



1511 

3677 


JMP I 

T34S 

/return if ZERO 

1512 

2032 

T24SB, 

ISZ 

CHARS 

/NEXT CHAR 

1513 

7300 


CLA CLL 



1314 

1032 


TAO 

CHARS 

/CHECK CHAR 

1513 

1137 


TAD 

M7 


1316 

7430 


SNA 



1517 

5312 


JMP 

TS4SB 

/SELL, SKIP 

1320 

1133 


TAD 

MI 


1321 

7450 


SNA 



1322 

3312 


JMP 

T24SB 

/SKIP BS 

1323 

1154 


TAO 

M2 


1524 

7450 


SNA 



1525 

5312 


JMP 

T24SS 

/SKIP LF 

1326 

1154 


TAD 

M2 


1327 

7430 


SNA 



1530 

3312 


JMP 

T24S8 

/SKIP FF 

1331 

1153 


TAD 

Ml 


1332 

7450 


SNA 



1333 

5312 


JMP 

T24S8 

/SKIP CR 

1334 

1163 


TAD 

M23 


1533 

7630 


SNA CLA 


/CHARnSPACE? 

1536 

3304 


JMP 

T24SC 

/YES, RESET CHAR 

1537 

5305 


JHP 

T24SA 

/NO, CONTINUE 

1340 

0000 

SETSKP, 

0 



1541 

7300 


CLA 

CLL 
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1542 

1021 


TAD 

PARAM 

/GET HARDWARE WORD 1 

1S43 

700a 


RAL 


/PUT OPTION l BIT INTO BIT 0 

1544 

7710 


SPA 

CLA 

/WAS OPTION 1 SELECTED ? 

1345 

3351 


JMP 

.74 

/YES-SETUP TOT TO SKIP ON AND CLEAR DATA ACCEPTED 

1546 

1776' 


TAO 

RPSKF+3 

/NO-SETUP FOR LA180 SKIP ON CHAR JOT 

1547 

3775' 


OCA 

T0MIOT 

/SAVE THE SKIP IOT 

1330 

3T40 


JMP I 

SETSKP 

/RETURN TO PROGRAM TO LOAD CHAR 

1551 

1774* 


TAD 

OPOBST 

/GET OPTION 1 IOT TO SKIP 

1532 

5347 


JMP 

.>3 

/RETURN TO PROGRAM 





SEQ 0039 


I5?a 2643 
1575 0336 

15T6 2637 

1577 7401 

1600 


/TEST 25 * BUFFER TEST 
/ 

/THIS TEST CHECKS THE CHARACTER BUFFER OF THE LA180 WHILE PRINTING 
/FOUR LINES OF NUMBERS (WITH 2 BLANK LINES BETWEEN THE 
/FIRST ANO SECOND LINE). THESE LINES CAN BE USED TO 
/CHECK THE PROPER PRINTING WIDTH. 

/ANY E PRINTEO INDICATES AN INCORRECT LOAD OR BUFFER ACTION, 


1600 

aa 62 

TEST25, 

PRTHDR 


/PRINT TEST HEADER 

1601 

1162 


TAD 

M20 

/SET CHAR COUNT 

160S 

3034 


OCA 

COUNT 


1603 

1377 


TAD 

(103 

/SET E CHAR 

1604 

4460 


MLOAD 


/LOAD BUFFER 

1605 

1143 


TAD 

P177 

/ 

1606 

4456 


LOAD 


/clear buffer 

1607 

1026 


TAD 

WIDTH 


1610 

3034 


OCA 

COUNT 

/SET COLUMN COUNT 

1611 

1173 


TAD 

Ml 44 


1612 

3036 


DCA 

LPCNT 

/SET ONES COUNT 

1613 

7001 


IAC 


/set first char*i 

I6ia 

4345 


JM3 

TS53 

/load ones 

1615 

5230 


JMP 

T2SA 

/OONE LINE-PRINT 

1616 

1167 


TAO 

M36 


1617 

3036 


OCA 

LPCNT 

/SET THREE'S COUNT 

1620 

1376 


TAO 

(3 


1621 

4305 


JMS 

T 253 

/PRINT THREE'S 

1622 

3230 


JMP 

T25A 


1623 

1154 


TAO 

M2 t 


162 a 

3036 


DCA 

LPCNT 

/SET TWO'S COUNT 

1625 

1126 


TAD 

P2 

/SET CHAR 

1626 

4345 


JMS 

T23S 

/PRINT TWO'S 

1627 

7000 


NOP 



1630 

4461 

T23A, 

PRINT 


/PRINT LINE 

1631 

3440 


LF 



1632 

1375 


TAD 

(-400 

/SET CHAR COUNT 

1633 

3034 


DCA 

COUNT 


163a 

1377 


TAD 

(105 

/SET E CHAR 

1635 

4460 


MLOAD 


/FILL BUFFER 

1636 

4461 


PRINT 


/PRINT BLANK LINE 


<3 
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1637 

5440 


LF 



1640 

1374 


TAD 

(-376 


1641 

3034 


DCA 

COUNT 


1642 

1377 


TAO 

C105 


1643 

4460 


HLOAO 


/LOAD BUFFER E'S 

1644 

1145 


TAO 

P177 

/CLEAR BUFFER 

1645 

4456 


LOAD 


/CLEAR BUFFER 

1646 

4461 


PRINT 



1647 

5440 


LF 


/PRINT BLANK LINE 

1650 

1375 


TAO 

(•400 


1651 

3034 


DCA 

COUNT 


1652 

1377 


TAO 

(105 


1653 

4460 


MLOAO 


/FILL BUFFER ALL E'S 

1654 

1026 


TAO 

WIDTH 


1655 

3034 


OCA 

COUNT 

/SET COLUMN COUNT 

1656 

1373 


TAO 

(•143 


1657 

3036 


DCA 

LPCNT 

/SET 0*3 COUNTER 

1660 

4345 


JMS 

T23S 

/LOAD 0'S 

1661 

5265 


JMP 

T25B 

/PRINT IF DONE LINE 

1662 

7001 


I AC 


/SET 1*3 

1,663 

4345 


JMS 

T25S 

/LOAD 1*8 TILL END OF LH 

1664 

7000 


NOP 



1665 

4461 

T25B ■ 

PRINT 


/PRINT LINE 

1666 

5440 


LF 



1667 

1372 


TAO 

(-377 


1670 

3034 


DCA 

COUNT 


1671 

1377 


TAO 

(105 


1672 

4460 


MLOAO 


/FILL BUFFER WITH E'S 

1673 

1145 


TAO 

P17 7 


1674 

4456 


LOAD 


/clear buffer 

1675 

1026 


TAO 

WIDTH 


1676 

3034 


DCA 

COUNT 

/SET COLUMN COUNT 

1677 

1371 


TAD 

(-11 


1700 

3036 


DCA 

LPCNT 

/SET GROUP COUNT 

1701 

3031 

T25C. 

DCA 

CHAR 

/SET CHAR 

1702 

1031 

T25D, 

TAD 

CHAR 

/CHECK CHAR 

1703 

1160 


TAD 

M12 


1704 

7650 


SNA CL* 



1705 

5301 


JMP 

T25C 

/RESET CHAR IF NECESSARY 

1706 

1031 


TAD 

CHAR 

/get char 

1707 

4345 


JMS 

T25S 

/LOAD CHAR 

1710 

5315 


JMP 

T25E 

/PRINT LINE IF DONE 

1711 

1160 


TAO 

HIE 

/RESET GROUP COUNT 

1712 

3036 


DCA 

LPCNT 

/SET NEXT CHAR 

1713 

2031 


ISZ 

CHAR 


1714 

5302 


JMP 

T25D 

/CONTINUE 

1715 

4461 

T25E , 

PRINT 


/PRINT LINE 

1716 

5440 


LF 



1717 

1375 


TAD 

(-400 


1720 

3034 


DCA 

COUNT 


1721 

1377 


TAD 

(105 


1722 

4460 


MLOAO 


/FILL BUFFER WITH E'S 

1723 

1370 


TAD 

(61 


1724 

3031 


DCA 

CHAR 

/SET FIRST CHARM 

1725 

1026 


TAD 

WIDTH 
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1726 

3034 


DCA 

COUNT 

/SET COLUMN COUNT 

1727 

1031 

T25F , 

TAD 

CHAR 

/GET CHAR 

1730 

4456 


LOAD 


/LOAO IT 

1731 

2031 


ISZ 

CHAR 

/LINE CHAR 

1732 

1031 


TAD 

CHAR 

/CHECK CHAR 

1733 

1367 


TAD 

(-72 


1734 

7640 


SZA CL* 



1735 

5340 


JMP 

T23G 


1736 

1140 


TAD 

P60 


1737 

3031 


DCA 

CHAR 

/RESET CHAR TO 0 

1740 

2034 

T25G, 

ISZ 

COUNT 

/INC COLUMN COUNT 

1741 

5327 


JMP 

T25F 

/FINISH LINE 

1742 

4461 


PRINT 


/PRINT LINE 

1743 

5440 


LF 



1744 

5465 


EXIT 


/EXIT TEST 



/ROUTINE TO LOAD GROUPS OF 

CHARS FOR TEST 25 

1745 

0000 

T2SS, 

0 



1746 

1140 


TAD 

P60 

/MAKE CHAR ASCII 

1747 

3032 


DCA 

CHARE 

/SAVE CHAR 

1750 

1032 


TAO 

CHARE 

/GET CHAR 

1751 

4456 


LOAD 


/LOAD CHAR 

1752 

2034 


ISZ 

COUNT 

/INC COLUMN COUNT 

1753 

7410 


SKP 


/CONTINUE 

1754 

5745 


JMP I 

T25S 

/RETURN, ENO OF LINE 

1755 

2036 


ISZ 

LPCNT 


1756 

5350 


JMP 

T25S+3 

/CONTINUE 

1757 

2345 


ISZ 

T25S 

/INC RETURN ADR 

1760 

5743 


JMP I 

T25S 

/RETURN 


SEQ 0040 


1767 7706 

1770 0061 

1771 7767 

1772 7<101 

1773 7 63S 

1770 7402 

1775 7400 

1776 0003 

1777 0105 
2000 


/TEST 26 - OVERPRINT TEST 
/ 

/THIS TEST PRINTS r0UR LINES OF ALTERNATING CHARACTERS AND SPACES 
/IN A CHECKERBOARD PATTERN. EACH LINE IS OVERPRINTED TWICE 


2000 

4462 

TEST26, 

PRTHDR 


/PRINT TEST HEADER 

2001 

1377 


TAD 

(T26TA8 

/SET TABLE POINTER 

2002 

3041 


DCA 

TABPTR 


2003 

1155 

T26A, 

TAD 

M3 

/STROE COUNT FOR 2 OPERPRINTS 

2004 

3036 


DCA 

LPCNT 

2005 

1026 

T26B, 

TAD 

WIDTH 

/SET * COLUMNS 
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2006 

3034 


OCA 

COUNT 

2007 

1441 

T26C, 

TAD I 

TABPTR 

2010 

7430 


SNA 


2011 

3465 


EXIT 


2012 

0142 


AND 

PT7 

2013 

1170 


TAD 

M40 

2014 

7510 


8PA 


2015 

1143 


TAD 

P 100 

2016 

1134 


TAD 

P40 

2017 

4456 


LOAD 


2030 

2034 


I8Z 

COUNT 

2021 

7410 


8KP 


2022 

5237 


JMP 

T26D 

2023 

1441 


TAD I 

TABPTR 

2024 

7012 


RTR 


2035 

7012 


RTR 


2026 

7012 


RTR 


2027 

0142 


AND 

P77 

2030 

1170 


TAD 

M40 

2031 

7310 


SPA 


2032 

1143 


TAD 

P100 

2033 

1134 


TAD 

P40 

2034 

4436 


LOAD 


2035 

2034 


ISZ 

COUNT 

2036 

3207 


JHP 

T26C 

2037 

4461 

T26D, 

PRINT 


2040 

3437 


eR 


2041 

2036 


ISZ 

LPCNT 

2042 

3203 


JHP 

T26B 

2043 

4461 


PRINT 


2044 

5440 


LF 


2045 

2041 


ISZ 

TABPTR 

2046 

3203 


JMP 

T26A 

2047 

0340 

T26TAB, 

0540 


2030 

4000 


4000 


2031 

1540 


1540 


2032 

4043 


4043 


2033 

0000 


0 




/TEST 27 - MULTIPLE LINE 1 



/NUMBER 

printed 

INDICATES 



/DASHED 

REFERENCE LINES Al 



/LINE FEEDS, 


2034 

4462 

TEST27, 

PRTHDR 


2033 

1376 


TAO 

CT27TAB 

3036 

3041 


DCA 

TABPTR 

2097 

3045 

T27A, 

OCA 

TENS 

2060 

3044 


DCA 

ONES 

2061 

1441 


TAO I 

TABPTR 

2062 

2045 


ISZ 

TENS 

2063 

1160 


TAD 

Ml 2 

2064 

7300 


8MA 
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2065 

5262 


JMP 

.-3 

2066 

3044 


OCA 

ONES 

2067 

7240 


CLA CHA 


2070 

1043 


TAD 

TENS 

2071 

7430 


SNA 


2072 

3275 


JMP 

7278 

2073 

1140 


TAD 

P60 

2074 

4456 


LOAD 


2075 

7300 

T27B, 

CLA CLL 


2076 

1044 


TAD 

ONES 

2077 

1141 


TAD 

P72 

2100 

4456 


LOAD 


2101 

1441 


TAD I 

TABPTR 

2102 

7450 


SNA 


2103 

5307 


JMP 

T27C 

2104 

1153 


TAD 

Ml 

2103 

7440 


SZA 


2106 

3315 


JMP 

T27D 

2107 

1026 

T27C, 

TAD 

WIDTH 

2110 

1133 


TAO 

P36 

2111 

7740 


SM* SZA 

CLA 

2112 

5322 


JMP 

T27DA 

2113 

1026 


TAD 

WIDTH 

2114 

5323 


JMP 

T27E 

2115 

1160 

T270, 

tad 

M12 

2116 

7700 


SM* CL* 


2117 

5322 


JHP 

, + 3 

2120 

1166 


TAD 

M35 

2121 

7410 


SKP 


2122 

1375 

T27DA, 

TAD 

1.34 

2123 

3034 

T27E, 

OCA 

COUNT 

2124 

1136 


TAD 

P55 

2125 

4460 


MLOAO 


2126 

1441 


TAD I 

TABPTR 

2127 

7450 


SNA 


2130 

3337 


JMP 

T27X 

2131 

7041 


CIA 


2132 

303a 


DCA 

COUNT 

2133 

1131 


TAD 

PIS 

2134 

4460 


HLOAD 


2133 

2041 


ISZ 

TABPTR 

2136 

5237 


JMP 

T27A 

2137 

4461 

T27X, 

PRINT 


2140 

5440 


LF 


2141 

5465 


EXIT 


2142 

0001 

T27TAB, 

1 


2143 

0002 


2 


2144 

0004 


4 


2145 

0010 


10 


2146 

0020 


20 


2147 

0040 


40 


2130 

0000 


0 



/GET CHARS 
/DONE TEST? 

/YE9i EXIT TEST 
/NO, MASK CHAR 
/HAKE ASCII 


/LOAD CHAR 

/INC CHAR COUNT 

/CONTINUE 

/PRINT LINE 

/GET CHAR PAIR AGAIN 

/GET SECOND CHAR 


/MASK CHAR 
/MAKE ASCII 


/load IT 
/INC COUNT 
/CONTINUE 
/PRINT LINE 

/INC OVERPRINT COUNT 
/CONTINUE 
/ADVANCE PAPER 

/INC TABLE POINTER 
/GET NEXT PAIR 

/E-SP 

/8P-» 

/M-SP 

/3P-# 

/ENO OF TABLE 


/PRINT TEST HEADER 
/SET TABLE POINTER 


/clear conversion counters 


/get number 

/CONVERT TO ASCII 
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/SKIP LEAOING ZERO'S 
/LOAD TENS DIGIT 


/LOAD ONES DIGIT 
/GET # 

/SKIP IF NOT ZERO 

/ZERO, PRINT 131 DASHES MAX 

/SKIP IF ONE 

/PRINT 131 DASHES MAX, 

/2B MINIMUM 


/CHECK IF WANT BS OR SB DASHES 


/SET 2<J 


/SET 28 

/STORE DASH COUNT 


/LOAD OA3H LINE 


/PRINT LINE 
/EXIT TEST 


/END OF TABLE 


2175 T744 



'flu* 


PAGE 1-2* 


seq dpaa 


/M*INDEC-Sfl-OIUAC-B-U 

2176 2U2 

2177 2007 
2200 


2200 0462 

2201 1167 

2202 3034 

2203 0461 

2204 2210 

,2205 2034 

2206 5203 

2207 5465 

2210 3073 

2211 0000 


2212 4462 

2213 1127 

2214 4456 

2215 446J 

2216 2240 

2217 1127 

2220 4456 

2221 4061 

2222 2203 

2223 1127 

2224 4456 

2225 4461 

2226 5037 

2227 1127 

2230 4456 

2231 0061 

2232 5440 

2233 1127 

2234 4456 

2235 4461 

2236 5437 

2237 5465 

2240 0203 

2241 1414 


/HAINDEC-08-OILAC-B-L 

2202 0000 

2243 4024 

2244 0523 

2245 2000 


2246 7300 

2247 3040 

2250 4462 

2231 1135 

2252 3031 

2253 1026 

2254 3034 

2255 1031 

2256 4460 

2257 4461 

2260 5440 

2261 1377 

2262 3036 

2263 1026 

2264 3034 

2265 1031 

2266 4460 

2267 4461 

2270 3437 

2271 2036 

2272 5263 

2273 4461 

2274 5440 

2275 2031 

2276 1174 

2277 1031 

2300 7640 

2301 3233 

2302 2040 

2303 7000 

2304 4461 

2305 5057 

2306 3047 

2307 1000 

2310 2047 

2311 1376 

2312 7500 

2313 5310 

2314 1375 
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/TEST 30 - RIBBON FEEO TEST 

/THIS TEST PRINTS A SINGUE COLUMN OF 24 LINES OF X'S DOWN THE 
/LEFT HAND HARQIN OF THE PAGE 


TEST30 

, PRTHOR 


/PRINT TEST HEADER 


TAD 

M30 

/SET LINE COUNT 


OCA 

COUNT 


T30A« 

PRINT 

T30H 


/PRINT X-LF 


187 

COUNt 

/OEC LINE COUNT 


JHP 

T30A 

/FINISH TEST 


EXIT 


/EXIT TEST 

T30H i 

TEXT 

/X(/ 


/TEST 

31 « BELL 

TEST 


/THIS 

TEST WILL 

SOUNO 5 BELLS 

BETWEEN PRINTING "BELL 

TE8T31 

, PRTHOR 
TAD 

PT 

/PRINT TEST HEADER 


LOAD 


/SEND BELL CODE 


PRINT 

T31M1 

TAO 

P7 

/LOAD WORD "SELL' 1 


LOAD 


/LOAD BELL CODE 


PRINT 

T31H2 

TAO 

PT 

/L0*0 WORD "TEST" 


LOAO 


/LOAD 


PRINT 

CR 

TAO 

PT 

/SEND CR 


LOAO 


/LOAO BELL CODE 


PRINT 

LF 


/SEND LF 


TAO 

P7 

/LOAD SELL CODE 


LOAO 

PRINT 

CR 


/SEND CR 


EXIT 


/EXIT TEST 

T31H1, 

TEXT 

/BELL/ 
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T31H2, 

TEXT 

/ TEST/ 




SEQ 0045 


/maintenance aids 


/TEST 60 - LIFE TEST 
/ 

/THIS TEST PRINTS 2 FULL LINES OF EACH PRINTABLE CHARACTER 
/THE SECOND LINE IS OVERPRINTED 4 TIMES TO CONSERVE PAPER 


/AT THE 

END OF 

EACH PASS 

THROUGH THe ENTIRE PRINTABLE CHARACTER 

/SET, THE PASS 

COUNT WILL 

RE PRINTED ON THE LA1S0, 

TEST60, 

CLA CLL 


/clear 


OCA 

PASCNT 

/CLEAR PASS COUNT 

T60A, 

PRTHOR 


/PRINT TEST HEADER ON BLANK LINES 


TAO 

P41 

/SET FIRST CHAR 


OCA 

CHAR 

/STORE IT 

T60B, 

Tin 

WIDTH 

/GET * COLUMNS 


DCA 

COUNT 

/STORE IT 


TAD 

CHAR 

/GET CHAR 


mload 


/LOAD LINE 


PRINT 

LF 


/PRINT LINE 


TAO 

(-5 

/SET OVERPRINT COUNT 


DCA 

LPCNT 


T60C# 

T4D 

WIDTH 

/SET * COLUMNS 

y 

DCA 

COUNT 



TAO 

CHAR 

/GET CHAR 


mload 


/LOAD LINE 


PRINT 

CR 


/PRINT LINE 


ISZ 

LPCNT 

/INC OVERPRINT COUNT, DONE? 


JHP 

T 60C 

/NO, DO AGAIN 


PRINT 

LF 


/YES, ADVANCE PAPER 


ISZ 

CHAR 

/SET NEXT CHAR 


7*0 

H177 

/CHECK IT 


7AD 

SZA CLA 

CHAR 

/CHAR«RUR0UT7 


JHP 

T60B 

/NO, CONTINUE THIS PASS 


ISZ 

PASCNT 

/YES, INC PASS COUNT 


NOP 

PRINT 


/PRINT PASS COUNT HE5G 


PASHSG 

DCA 

THOUS 

/CLEAR CONVERSION COUNTERS 


TAD 

PASCNT 

/GET PASS COUNT S CONVERT TO DECIMAL 


ISZ 

THOUS 


TAD 

(-1750 



8MA 




JMP 

.-3 



TAD 

(1750 




aa-MAY«T6 


9 I 0 S 
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SEQ 51006 


/MAINOEC-08-OILAC-B-L PAL 10 V1 A2A 


2315 

3040 

OCA 

PASCNT 


2316 

1137 

TAD 

P57 


2S1T 

1047 

TAO 

THOUS 


2320 

4456 

LOAD 



2321 

1040 

TAO 

PASCNT 


3322 

4517 

JMS I 

TCNVRT 


2323 

4461 

PRINT 



2324 

5435 

CNVMSG 



2325 

4461 

PRINT 


/PRINT LINE 

2326 

5440 

LF 



2327 

5250 

JMP 

T60A 

/CONTINUE TEST 

2375 

1750 




2376 

6030 




2377 

TT73 





2400 

PAGE 




/test 61 - SCOPE DRIVE ROUTINE 
/ 

/THIS TEST will load A CHARACTER 8ET IN 3W REG BITS 05-11 

/if switch 0 « is down, pull lines will be loaded t printed 

/a linefeed will be inserted AUTOMATICALLY ip loading printable characters. 

/IP SWITCH 04 IS UP, the character will be loaded once a the 

/PROGRAN WILL HALT* NO LINE PEEDS OF CARRIABE RETURNS WILL BE SENT BY THE PROGRAM, 


2400 

4462 

TE8T61 

, PRTHDR 


/PRINT HEADER 

2401 

5225 


JMP 

T61C 

/CHECK SWITCH 4 FIRST 

2401 

1026 

T61A, 

TAD 

WIDTH 

/GET # COLUMNS 

2403 

3034 


OCA 

COUNT 

/STORE IT 

2404 

4321 

T61B, 

GET3W 


/GET 3W REG 

2405 

0143 


AND 

PIT? 

/MARK CHAR 

2406 

3031 


OCA 

CHAR 

/SAVE IT 

2407 

1031 


TAO 

CHAR 

/GET CHAR 

2410 

4436 


LOAD 


/L0»0 IT 

2411 

1160 


TAD 

M12 

/CHECK CHAR 

2412 

1031 


TAO 

CHAR 


2413 

7450 


SNA 


/CHAR ■ LFT 

2414 

3225 


JMP 

T61C 

/YES, RESET COLUMN COUNT 

2415 

1135 


TAD 

M3 


2416 

7450 


SNA 


/CHAR I CR? 

2417 

3225 


JMP 

T61C 

/YES, RESET COLUMN COUNT 

2420 

1163 


TAO 

M23 


2421 

7700 


SMA cl* 


/NON-PRINTABLE CHART 

2422 

2034 


ISZ 

COUNT 

/NO, INC COLUMN COUNT 

2423 

7000 


NOP 



2424 

5230 


JMP 

T610 

/CHECK SW 04 

2425 

7300 

T61C, 

CLA CLL 


/CLEAR 

2426 

1026 


TAD 

WIDTH 

/GET * COLUMNS 

2427 

3034 


OCA 

COUNT 

/STORE IT 

2430 

7604 

T61D, 

LAS 


/GET SW REG 

2431 

0146 


ANO 

P200 

/MASH SW 04 

2432 

7650 


SNA CL* 


/SWITCH A UPT 

2433 

5236 


JMP 

T61E 

/NO, CONTINUE 

2434 

7402 


HLT 


/YES, HALT 

2435 

5204 


JMP 

T61B 

/get NEXT CHAR 
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2436 

1034 

T61E, 

TAD 

COUNT 

/GET COLUMN COUNT 

2437 

7510 


SPA 


/DONE LOAOT 

2440 

5204 


JHP 

T618 

/NO, CONTINUE 

2441 

7630 


SNA CLA' 


/TOO MANY LOADED? 

2442 

3245 


JMP 

T61F 

/NO, CONTINUE 

2443 

1145 


TAO 

PITT 

/YES, SET RUBOUT 

2444 

4456 


LOAD 


/clear suffer 

2445 

4461 

T61F, 

PRINT 


/PRINT LOADED CHARACTERS 

2446 

5440 


LF 



2447 

3202 


JMP 

T61A 

/CONTINUE TEST 



/TEST 

62 » LINE 

PRINT TEST 



/ 


/THIS TEST PRINTS FULL LINES CONTINUOUSLY OF WHATEVER CHARACTER 
/IS TYPED ON THE CONSOLE KEYBOARD, TO CHANGE CHARACTERS, 
/RESELECT THIS TEST, AN ERROR MESSAGE WILL BE PRINTED 
/IF THIS test is selected ANO A console TERMINAL does not exist. 


2450 

4462 

TE8T62, 

PRTHDR 


/PRINT TEST HEADER 

2451 

1053 


TAD 

TPFLG 

/CHECK IF TERH EXISTS 

2432 

7650 


SNA CLA 



2453 

5341 


JMP 

TERR 

/EXIT IF NONE 

2454 

4455 


TYPE 


/TYPE INSTR 

2455 

3244 


TCHAR 



2456 

4472 


JM8 I 

TKSF 

/WAIT FOR KY80 FLAG 

2457 

5256 


JMP 

.-1 


2460 

4464 


CHECK 


/CHECK CHAR FOR CONTROL 

2461 

4475 


JMS I 

tkrb 

/REAO CHAR 

2462 

4501 

T62A, 

JMS I 

TTLS 

/ECHO CHAR 

2463 

4476 


JMS I 

TTSF 


2464 

5263 


JMP 

«-l 


2465 

3031 


OCA 

CHAR 

/SAVE CHAR 

2466 

4455 


TYPE 


/SEND CR-LF 

2467 

5441 


CRLP 



2470 

1026 

T628, 

TAO 

WIOTH 

/SET COLUMN COUNT 

24T l 

3034 


OCA 

COUNT 


2472 

1031 


TAO 

CHAR 

/GET CHAR 

2473 

4460 


MLOAD 


/LOAD LINE 

2474 

4461 


PRINT 



2475 

5440 


LF 


/PRINT LINE 

2476 

3270 


JMP 

T62B 

/CONTINUE 


/TEST 63 - CHARACTER PRINT TEST 
/ 

/THIS test loads whatever character is typed on the console keyboard 

/TO THE LA1B0, CHARACTER BY CHARACTER, 

/IF THIS TEST IS SELECTED ANO A CONSOLE TERMINAL DOES NOT EXIST, 

/AN ERROR MESG WILL BE PRINTED, 


24TT 

4462 

TEST63, PRTHDR 


/PRINT 

TEST HEADER 

2500 

1053 

TAD 

TPFLG 

/CHECK 

IF TERM EXISTS 

2501 

7650 

SNA CL* 




2502 

5341 

JHP 

TERR 

/EXIT 

IF NONE 

2503 

4433 

TYPE 


/TYPE 

INSTR 

2304 

5244 

TCHAR 







seo 00an 
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2505 

4455 


TYPE 


/SEND CR"LF 

2506 

5441 


GRIP 



2507 

4472 

T63B, 

JMS 1 

TKSF 

/WAIT FOR KY8D FLAG 

2510 

5307 


JHP 

• *1 


2511 

4464 


CHECK 


/CHECK CHAR FOR CONTROL 

2512 

4475 


JMS I 

TKRB 

/READ CHAR 

2513 

0145 


AND 

P1 77 

/HASK BIT 8 

2514 

3031 


DCA 

CHAR 


2515 

1031 


TAD 

CHAR 


2516 

4501 

T63A, 

JHS I 

TTLS 

/ECHO CHAR 

2517 

4476 


JHS I 

TTSF 


2520 

5317 


JHP 

.*1 


2521 

4456 


LOAD 


/LOAD CHAR 

2522 

1031 


TAO 

CHAR 

/CR-LF AFTER CR 

2523 

1161 


TAD 

H15 


2524 

7650 


SNA ClA 



2525 

5336 


JHP 

T63E 


2526 

1031 

T63C, 

TAD 

CHAR 

/CR-LF AFTER LF 

2527 

1160 


TAD 

H12 


2530 

7650 


SNA CLA 



2531 

5336 


JHP 

T63E 


2532 

1031 

T630 » 

TAD 

CHAR 

/CR-LF AFTER FF 

2533 

1377 


TAO 

C* l 4 


2534 

7640 


82A CLA 



2535 

5307 


JHP 

T638 


2536 

4455 

tbit, 

TYPE 



2537 

5441 


CRLP 



2540 

5307 


JHP 

T63B , 


2541 

4«61 

TERR, 

PRINT 


/PRINT ERROR HESG ON LA180 

2542 

5231 


NCHSG 



2543 

5465 


EXIT 


/EXIT TEST 

2577 

7764 






2600 


PAGE 





/TT7 

1*0 INSTRUCTIONS 


2600 

0000 

RKSF , 

0 



2601 

6031 


K3F 


/SKIP IF FLAG IS SET 

2602 

7410 


3KP 



2603 

2200 


ISZ 

RKSF 

/INC RETURN ADR 

2604 

5600 


JHP I 

RKSF 

/return 

2605 

0000 

RKCC, 

0 



2606 

6032 


KCC 


/clear flag 

2607 

5605 


JHP I 

RKCC 

/return 

2610 

0000 

RKR8» 

0 



2611 

6034 


KRS 


/READ BUFFER {STATIC) 

2612 

5610 


JHP I 

RKRS 

/RETURN 

2613 

0000 

RKRS, 

0 



2614 

6036 


KRS 


/clear AC, READ BUFFER & CLEAR FLAG 

2615 

5613 


JHP I 

RKRS 

/RETURN 
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2616 

0000 

RTSF, 

0 



2617 

6041 


TSF 


/SKIP IF FLAG IS SET 

2620 

7410 


SKP 



2621 

2216 


ISZ 

RTSF 

/INC RETURN AOR 

2622 

5616 


JHP I 

RTSF 

/RETURN 

2623 

0000 

RTCF, 

0 



2624 

6042 


TCF 


/CLEAR FLAG 

2625 

5623 


JHP I 

RTCF 

/return 

2626 

0000 

RTPC, 

0 



2627 

6044 


TPC 


/LOAD BUFFER 

2630 

5626 


JHP I 

RTPC 

/RETURN 

2631 

0000 

RTLS, 

0 



2632 

6046 


TLS 


/PRINT CHAR 

2633 

5631 


JHP I 

RTLS 

/return 



/PRINTER INSTRUCTIONS 


2634 

0000 

RPSKF, 

0 



2635 

4777' 


JMS 

0P1CHK 

/Gfl CHECK TO SEE IF RUNNING ON PAR 

2636 

2643 


OPDBST 

/ON PARALLEL I/O 

2637 

6661 


PSKF 


/SKIP ON CHARACTER FLAG 

2640 

7410 


8KP 



2641 

2234 


IS7 

RPSKF 

•/INCREMENT RETURN ADDRESS FOR SKIP 

2642 

5634 


JHP 1 

[ RPSKF 

/RETURN 

2643 

6570 

0PDB8T, 

DBST 


/SKIP ON DATA ACCEPTED AND CLEAR IT 

2644 

5634 


JHP 1 

[ RPSKF 

/FLAG NOT SET RETURN 

2645 

5241 


JHP 

.-4 

/BUMP RETURN AND THEN RETURN 

2646 

0000 

RPCLF, 

0 



2647 

4777' 


JHS 

0P1CHK 

/GO CHECK FOR PARALLEL I/O 

2650 

2653 


0P1CLF 

/A00RES8 FOR PARALLEL I/O ROUTINE 

2651 

6662 


PCLF 


/clear character FLAG 

2652 

5646 


JMP I RPCLF 

/return 

2653 

6570 

0P1CLF, 

DBST 


/SKIP ON DATA ACCEPTED AND CLEAR IT 

2654 

5646 


JHP ] 

: RPCLF 

/return flag WAS NOT SET 

2655 

5646 


JHP 1 

: RPCLF 

/RETURN flag IS NOW A ZERO 

2656 

0000 

RPSTB, 

0 



2657 

4777' 


JHS 

OPICHK 

/GO CHECK FOR PARALLEL I/O 

2660 

2663 


OPLOD1 

/ADDRESS FOR PARALLEL I/O ROUTINE 

2661 

6664 


PSTB 


/LOAD BUFFER 

2662 

5656 


JHP ] 

: RPSTB 

/RETURN TO PROGRAH 

2663 

7040 

0PL0D1, 

CHA 


/NEGATE THE WORD FOR PARALLEL I/O 

2664 

6574 


DBTD 


/LOAD THE 12 BIT PARALLEL I/O 

2665 

7040 


CHA 


/RESET THE WORD TO ORIGINAL WORD 

2666 

6577 


OBSS 


/ISSUE A DATA STROBE PULSE 

2667 

5656 


JHP ] 

[ RPSTB 

/RETURN TO PROGRAM 

2670 

0000 

RPSIE, 

0 



2671 

4777' 


JMS 

OPICHK 

/GO CHECK FOR PARALLEL I/O 

2672 

2675 


opscie 

/ADDRESS FOR PARALLEL I/O ROUTINE 

2673 

6665 


PSIE 


/ENABLE INTERRUPTS 

2674 

5670 


JMP ] 

RPSIE 

/return 


SEO 0(149 
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26TS 

7040 

OPSCIE, 

SZA 


/CHECK DATA BIT 11 

86*6 

6373 


DBSE 


/SgT DATA BIT 11 

36** 

7450 


SNA 



S?00 

6376 


DBCE 


/CLEAR PARALLEL I/O INT ENA 

3701 

3678 


JMP I 

RPSIE 

/RETURN TO THE PROGRAM 

2702 

0000 

RPCLP, 

0 



2703 

4777 * 


JM3 

OP1CHK 

/GO CHECK FOR PARALLEL I/O 

2704 

2707 


OPLOD2 


/AODRESS FOR PARALLEL I/O ROUTINE 

2703 

6666 


PCLP 


/clear flag and load buffer 

2706 

3702 


JMP I 

RPCLP 

/RETURN TO THE PROGRAM 

2707 

6370 

0PL0D2, 

DB3T 


/SKIP ON DATA ACCEPTED ANO CLEAR 

2*10 

7000 


NOP 


/USED INCASE FLAG WAS SET 

2711 

7040 


DMA 


/NEGATE THE WORD TO LOAD FOR PAR 

2712 

6974 


OBTD 


/LOAD THE PARALLEL I/O BUFFER 

3713 

7040 


CMA 


/RESET THE WORD BACK TO ORIGINAL 

2714 

6377 


OBSS 


/ISSUE A DATA STROBE 

2*13 

5702 


JMP I 

RPCLP 

/RETURN BACK TO PROGRAM 


SEQ 005P) 


/ROUTINE TO HODlFV I»0 INSTRUCTIONS FOR SELECTED IOT COOES 
/ON CONSOLE TERMINAL & LA180 PRINTER 


2716 

0000 

MIOT, 

0 




2717 

7300 


CLA 

CLl 


/clear 

2720 

1136 


TAD 


M4 

/BET LOOP COUNT 

2721 

3034 


OCA 


COUNT 


2722 

1376 


TAD 


(IDT AB-1 

/SET TABLE pointer 

2723 

3010 


OCA 


AUTPTR 


2724 

1030 


TAO 


IOTSEL 

/GET IOT SELECTION 

2725 

0172 


AND 


M100 

/MASK XMIT IOT 

2726 

7110 


CLL 

raR 



2727 

7112 


CLL 

RTR 



2730 

3033 

MIOTB, 

OCA 


SAVE 

/STORE IOT 

27S1 

1410 

NIOTA, 

TAD 

I 

AUTPTR 

/GET TABLE ENTRY 

2732 

7450 


SNA 



/DONE TTY I0T*S* 

37S3 

5350 


JMP 


MIOTC 

/YES, 00 PRINTER 

2734 

3041 


OCA 


TABPTR 

/NO, STORE IN8TR AOR 

2733 

1441 


TAD 

I 

TABPTR 

/get INSTR 

2736 

0375 


AND 


CT00T 

/MASK INSTR CODE 

2737 

1033 


TAO 


SAVE 

/ADD IOT 

3740 

3441 


DCA 

I 

TABPTR 

/STORE NEW 10 INSTR 

2741 

2034 


ISZ 


COUNT 

/INC COUNT 

2?4'2 

5331 


JMP 


MIOTA 

/CONTINUE THIS IOT 

2743 

1030 


TAD 


IOTSEL 

/GET IOT SELECTION 

2744 

0142 


AND 


P77 

/MASK RCVR IOT 

2745 

7106 


CLL 

RTL 



2746 

7104 


CLL 

RAL 



2747 

5330 


JMP 


MIOTB 

/CONTINUE 

2730 

1410 

HIOTC, 

TAO 

I 

AUTPTR 

/GET TABLE ENTRY 

2751 

7450 


SNA 



/DONE* 

2752 

3716 


JMP 

I 

MIOT 

/YES, RETURN 

2753 

3041 


DCA 


TABPTR 

/NO, STORE INSTR AOR 

2754 

1441 


TAO 

I 

TABPTR 

/GET INSTR 

2755 

0375 


AND 


CT007 

/MASK INSTR CODE 

2756 

1027 


TAD 


PTRIOT 

/AOO IOT 

>06>DILAe«B«L 

PAL 10 

V142A 

28-MAY-76 

9148 PAGE 1-31 

2757 

3441 


DCA 

I 

TABPTR 

/STORE NEW INSTR 

2760 

5350 


JMP 


MIDTC 

/CONTINUE 

2775 

7007 






2776 

4534 






2777 

3142 







3000 


PAGE 




SEQ 0051 


/CLOCK INTERRUPT SERVICE ROUTINE FOR TEST 8 


3000 

6133 

CKSRV, 

CL8K 


3001 

5213 


JHP 

CKEXIT 

3002 

2037 


ISZ 

CKCNT 

3003 

5213 


JMP 

CKEXIT 

3004 

2036 


ISZ 

LPCNT 

3005 

7410 


8KP 


3006 

5615 


JMP I 

CKSTOP 

300T 

3216 


OCA 

ISAVE 

3010 

1054 


TAO 

CKFLAG 

3011 

3037 


OCA 

CKCNT 

3012 

1216 


TAO 

ISAVE 

3013 

6001 

CKEXIT 

, ION 


3014 

5400 


JMP I 

0000 

3015 

1110 

CKSTOP 

, T2SP0C 


3016 

0000 

ISAVE, 

0 




/TEST 

EXIT ROUTINE 

3017 

4507 

REKIT, 

JMS I 

TKBFG 

3020 

4521 


GET5W 


3021 

0152 


AND 

P100P 

3022 

7640 


SZA CL* 


3023 

5237 


JMP 

EXITS 

3024 

4521 


GET3W 


3025 

0151 


ANO 

P400 

3026 

7640 


SZA CL* 


3027 

5467 


JMP I 

TSELCT 

3030 

1052 


TAO 

tloop 

3031 

7640 


SZA CL* 


3032 

5237 


JMP 

EXIT3 

3033 

1051 


TAD 

TRONE 

3034 

7640 


SZA cla 


3035 

5510 


JMP I 

ttsel 

3036 

2023 

EXIT1, 

ISZ 

TSTNM 

3037 

1070 

EKIT3, 

TAO 

TTAT 

3040 

1023 


TAO 

TSTNM 

3041 

3041 


DCA 

TABPTR 

3042 

1441 


TAO I 

TABPTR 

3043 

7550 


SNA SPA 


3044 

5247 


JMP 

EXIT2 

3045 

3042 


DCA 

TSTPTR 

3046 

5442 


JMP I 

TSTPTR 

3047 

7700 

EXIT2, 

SMA CLA 



/SKIP ON CLOCK FLAG 

/RETURN IF NOT CLOCK INTERRUPT 

/INC CLOCK COUNT 

/RETURN IP COUNT IS NOT ZERO 

/INC TIME COUNT 

/CONTINUE IF NOT ZERO 

/END OF TIME - PRINT TIMING HESG 

/SAVE AC 

/RESET CLOCK COUNT 

/RESTORE AC 
/INTERRUPT SYSTEM ON 
/RETURN TO TEST 

/RETURN ADR - PRINT TIMING HESG 
/SAVE AC 


/CHECK FOR KYBD FLAG 
/GET 5W REG 
/MASK SWg 
/LOOP ON test? 

/YES, RETURN TO TEST 
/GET SW REG 
/MASK SW3 

/WANT SW REG CONTROL* 

/YES, SELECT TEST HALT 
/KVBD CNTRL - LOOP ON TEST* 

/YES, RETURN TO TEST 
/KY8D CNTRL - RUN TEST ONCE* 

/YES, SELECT TEST 
/INC TEST NUMBER 
/GET TABLE ADR 
/ADD TEST NUMBER 
/STORE POINTER 
/GET TEST ADR 
/SKIP IF OK 
/CHECK IF NOT OK 

/STORE ADR 
/GO TO TEST 
/-I IN TABLET 
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SEQ 0053 



3050 

5236 


JHP 

EXIT1 

/NO, INC TEST * 

3051 

1377 


TAD 

(20 

/RESTART PRINTING TEST SEQUENCE 

3052 

3023 


DCA 

TSTNM 


3053 

5237 


JMP 

EXITS 




/SELECT 

TEST FROM CPU SW REG 

BITS 06-11 

3054 

6002 

SELECT, 

IOF 


/DISABLE INTERRUPTS 

3055 

6132 


CLDI 



3056 

7300 


CL* CLU 



3057 

4505 


JMS I 

TP8IE 


3060 

3050 


DCA 

STRONE 

/clear CONTROL FLAGS 

3061 

3051 


DCA 

TRONE 


3062 

3052 


DCA 

TLOOP 


3063 

1125 


TAD 

LIERR 

/RESET INTERRUPT ERROR 

3064 

3002 


DCA 

ISRV 


3065 

4507 


JMS I 

TKBFG 

/CHECK IF KYBD FLAG 

3066 

7402 


HLT 


/WAIT POR OPERATOR TO SELECT TEST 






/PRESS CONTINUE WHEN READY 

3067 

4521 


GETSW 


/GET SW REG 

3070 

0151 


AND 

P400 

/MASK 8W3 

3071 

7640 


SZA CL* 


/WANT TO RUN TEST ONCE & HALT? 

3072 

7040 


CMA 


/YES, SET FLAG 

3073 

3050 


DCA 

STRONE 

/STORE FLAG 

3074 

4521 


GETSW 


/GET SW REG 

3075 

0142 


AND 

P77 

/SAVE TEST * 

3076 

3023 


DCA 

TSTNM 

/STORE TEST * 

3077 

1070 


TAD 

TTAT 

/GET TABLE ADDRESS 

3100 

1023 


TAO 

TSTNM 

/ADD TEST NUMBER 

3101 

3041 


OCA 

TABPTR 

/STORE POINTER 

3102 

1441 


TAD I 

TABPTR 

/GET TEST APR 

3103 

7530 


SNA SPA 


/CHECK IT - OK? 

3104 

5254 


JMP 

SELECT 

/NO, GET NEW SELECTION 

3105 

3042 


DCA 

TSTPTR 

/OK, STORE ADR 

3106 

5442 


JHP I 

TSTPTR 

/GO TO TEST 


/ROUTINE TO CHECK POR KYBO OR SW RES CONTROL 
/CALL! CHECK « JMS I TCHECK 


310T 0000 RCHECK, 0 

3110 3033 OCA SAVE /SAVE AC 

3111 <1307 JMS I TKBFG /CHECK FOR KYBD FLAG 

3113 4531 GETSW /OET SW REG 

3113 0131 AND P400 /MASK SW3 

3114 T640 SEA CL* /SW3 UPT 

3113 7001 I AC /YES| SET AC ■ +1 

3115 1030 TAD STRONE /ADD ONE RUN FLAG 

3H7 7640 SZA CL* /CHANGE IN SWITCH SETTING? 

3120 3467 JMP I TSELCT /YES, SELECT TEST 

3121 1033 TAD SAVE /RESTORE AC 

3122 5707 JHP I RCHECK /NO, RETURN 



/ROUTINE TO WAIT FOR OPERATOR ACTION 
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3123 

0000 

RHOLD, 

0 



3124 

3341 


DCA 

HOLOCH 

/SAVE AC 

3125 

1053 


TAD 

tpflg 

/terminal there? 

3126 

7650 


SNA CL* 


/BRANCH IF YES 

3127 

5336 


JMP 

RHOLOA 

/halt if no terminal 

3130 

4455 


TYPE 


/TYPE WAIT MESG 

3131 

4777 


WTHSG 



3132 

1341 


TAO 

HOLOCH 

/RESTORE AC 

3133 

4472 


JMS I 

TKSF 

/WAIT POR KYBD FLAG 

3134 

5333 


JMP 

.-1 


3135 

5723 


JMP I 

RHOLD 

/return 

3136 

1341 

RHOLOA, 

TAD 

HOLOCH 

/RESTORE AC 

3137 

7402 


HLT 


/halt 

3140 

5723 


JMP I 

RHOLD 

/return 

3141 

0000 

HOLOCH, 

0 


/SAVE AC 



/ROUTINE' TO CHECK FOR PARALLEL 

I/O 

3142 

0000 

OP1CHK, 

0 



3143 

3356 


DCA 

SAVEAC 

/SAVE THE ENTERING AC 

3144 

1021 


TAD 

param 

/GET HARDWARE WORD 1 

3145 

7004 


RAL 


/PUT OPTION l BIT INTO BIT 0 

3146 

7710 


SPA 

CLA 

/IS LA 180 RUNNING ON PARALLEL I/O 

3147 

5353 


JMP 

.♦4 

/YE8-G0 GET ADDRESS FOR PARALLEL I/O 

3150 

2342 


ISZ 

OP1CHK 

/BUMP RETURN POINTER 

3151 

1356 


TAD 

SAVEAC 

/RESTORE THE AC 

3152 

5742 


JHP I 

OP1CHK 

/RETURN TO IDT SUBROUTINE 

3153 

1742 


tad i 

OP1CHK 

/GET ADDRESS OF PARALLEL I/O 

3154 

3342 


DCA 

OP1CHK 

/SAVE IT FOR RETURN 

3155 

5351 


JMP 

.-4 

/RETURN TO EXECUTE PARALLEL I/O CODE 


SEQ 0053 


3156 0000 SAVEAC, 0 


3177 0020 

3200 PAGE 


/ROUTINE TO CHECK FOR KYBD FLAG 

/WHEN LOOKING FOR CONTROL FROM THE CONSOLE DEVICE KEYBOARD 
/ALSO CHECKS FOR DYNAMIC SOFTWARE SWITCH REGISTER CONTROL WHEN 
/USING SOFTWARE SWITCHS 



3200 

0000 

KYBOF, 0 



3201 

7300 

CL* 

cll 


3202 

1053 

TAO 


TPFLG 

3203 

7650 

8NA 

cla 


3204 

5600 

JMP 

I 

KYBDF 

3205 

4470 

JMS 

I 

TKSF 

3206 

5600 

JMP 

I 

KYBDF 

3207 

4475 

JHS 

I 

TKRB 

3210 

0145 

AND 


P1T7 

3211 

3324 

DCA 


KYBOC 

3212 

1021 

TAD 


PARAM 

3213 

7710 

SPA 

CL* 


3214 

5313 

JMP 


KFA 


/clear 

/GET TERMINAL FLAG 

/terminal there? 

/NO, RETURN 
/KYBD FLAG SET? 

/NO, RETURN 
/YES, READ CHAR 
/MASK BIT 8 
/SAVE CHAR 

/USING SOFTWARE SWITCH REG? 


/NO, CONTINUE 
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SEQ 005a 


3215 

1324 


TAD 

KYBDC 

3216 

11ST 


TAO 

MT 

3217 

7640 


SZA CL* 


3220 

5313 


JMP 

KFA 

3221 

7300 

KPB, 

CL* CLL 


3222 

3325 


DC* 

TTYIN 

3223 

3326 


OCA 

INPLAG 

3224 

4455 


TYPE 


3223 

4T66 


DAM8GI 


3226 

1020 


TAD 

SWITCH 

3227 

4523 


JMS I 

TPOCT 

3230 

4455 


TYPE 


3231 

UT72 


D8M8G2 


3232 

4472 

KPP, 

JMS I 

TKSF 

3233 

5238 


JMP 

.>1 

3234 

4475 


JMS I 

TKRB 

3235 

0145 


ANO 

PITT 

3256 

3384 


OCA 

KYBDC 

3237 

1164 


TAO 

M25 

3240 

1324 


TAD 

KY80C 

3241 

7640 


8ZA CL* 


3242 

5246 


JMP 

KPC 

3243 

4455 


TYPE 


3244 

5445 


CNTLU 


3245 

5221 


JMP 

KPB 

3246 

1161 

KPC, 

TAO 

HI 5 

3247 

1324 


TAO 

KYBDC 

3250 

7640 


SZA CL* 


3251 

5262 


JMP 

KPD 

3252 

4455 


TYPE 


3253 

5441 


CRLF 


3254 

1326 


TAD 

INFL*G 

3255 

7650 


SNA CL* 


3256 

5600 


JMP I 

KYBOF 

3257 

1325 


TAD 

TTYIN 

3260 

3020 


DCA 

8WITCH 

3261 

5600 


JMP I 

KYBDP 

3262 

1160 

KPD, 

TAD 

mi a 

3263 

1324 


TAD 

KYBDC 

3264 

7640 


SZA CL* 


3265 

5276 


JMP 

KPE 

3266 

4455 


TYPE 


326T 

5441 


CR1.F 


3270 

1326 


TAD 

INFL*G 

32T1 

7650 


SNA CL* 


3272 

5510 


JMP I 

TTSEL 

3273 

1325 


TAO 

TTYIN 

3874 

3020 


DCA 

SWITCH 

3275 

5510 


JMP I 

TTSEL 

3276 

1324 

KPE, 

TAD 

KYBDC 

32TT 

4522 


JMS I 

POIGIT 

3300 

1324 


TAD 

KYBDC 

3301 

0127 


AND 

PT 

3302 

3324 


DCA 

KY8DC 

3303 

1325 


TAD 

TTYIN 
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3304 

7104 


CLL RAL 


3305 

7104 


CLL RAL 


3306 

7104 


CLL RAL 


330T 

1324 


TAD 

KYBDC 

3310 

3325 


DCA 

TTYIN 

3311 

2326 


ISZ 

INPLAG 

3312 

5232 


JMP 

KPP 

3313 

1324 

KPA, 

TAO 

KYBDC 

3314 

1174 


TAD 

MITT 

3315 

7650 


SNA CL* 


3316 

5510 


JMP I 

TTSEL 

331T 

1324 


TAD 

KYBOC 

3320 

1155 


TAD 

M3 

3321 

T650 


SNA CL* 


3322 

5466 


JMP 1 

TK8DST 

3323 

5600 


JMP t 

KYBDP 

3324 

0000 

KYBDC, 

0 


3325 

0000 

TTYIN, 

0 


3326 

0000 

inflag, 

0 



3400 


PAGE 


3400 

4451 

KBTAB, 

READQ 


3401 

3422 


KYBOAA 


3402 

3433 


KVBDA 


3403 

3447 


KYBDB 


3404 

4451 


READQ 



/YES, GET CHAR 
/CHAR ■ BEL <007* ? 

/NO, CHECK CHAR AGAIN FOR OTHER CONTROLS 
/CLEAR AC ANO LINK 
/CLEAR NEW switch SETTINGS 
/CLEAR INPUT FLAG 

/TYPE mesg 

/GET CURRENT SOPTWARE SWITCH SETTING 
/TYPE IT 

/TYPE REST OP HESG 

/KYBQ FLAG? 

/NO, WAIT 

/YES. READ CHAR 

/MASK CHAR • HAKE 7-BIT ASCII 

/SAVE CHAR 

/CHECK CHAR 

/CHAR ■ CONTROL-U 

/NO. CHECK AGAIN 

/YES, TYPE CONTROL-Ui cr-lp 

/RESTART ROUTINE 
/CHECK IP CHAR ■ CRT 

/CHAR i CRT 
/NO. CHECK AGAIN 
/YES, ECHO CR-LP 

/CHECK INPUT PLAB 

/LEAVE SW SETTINGS ALONE IP NO INPUT 
/SET NEW 8WITCH SETTINGS 

/RETURN TO TEST 
/CHECK IP CHAR « LP 


/NO, CHECK AGAIN 
/YES, ECHO CR-LP 

/CHECK INPUT FLAG 

/LEAVE SW SETTINGS ALONE IF NO INPUT 
/8ET NEW SWITCH SETTINGS 

/SELECT TEST 
/GET CHAR 

/PRINT OCTAL DIGIT ALWAYS AS BEING STORED 
/GET CHAR AGAIN 

/MASK OCTAL DIGIT PRDH ASCII CODE 
/SAVE IT 

/GET CURRENT SWITCH SETTING 


9148 PAGE 1-35 

/ROTATE SWITCH SETTINGS To ADO NEW ONE 


/ADO NEW SWITCHES 
/SAVE NEW SETTING 
/SET INPUT PLAG 
/CONTINUE 
/get char again 

/CHAR ■ RUBOUT? 

/YES, GET TEST SELECTION 
/NO, GET CHAR AGAIN 
/CHAR ■ CNTL C ? 

/YES, GET « COLUMNS 
/NO, RETURN 

/INPUT CHAR 

/SOPTWARE SWITCH INPUT 
/INPUT PLAG 


/INPUT ERROR 
/3 DIGIT * INPUT 
/B DIGIT « INPUT 
/I DIGIT * INPUT 
/INPUT ERROR 


SEQ 0055 


/ROUTINE TO SET number OF C0LUMN8 FROM C0N80LE DEVICE KYBO 
/WILL ALLOW 1 TO 3 DIGIT INPUT, NO LEADING ZEROS NEEOED, 


3405 

4453 

KYBDBT, 

TYPE 



3406 

4746 


COLUMN 


340T 

3026 


DCA 


WIDTH 

3410 

4511 


JMS 

I 

READ 

3411 

13T7 


TAD 


CREADT- 

3412 

3010 


OCA 


AUTPTR 

3413 

1034 


TAD 


COUNT 

3414 

7041 


CIA 



3415 

1376 


TAO 


(KBTAB 

3416 

3033 


DCA 


SAVE 

3417 

1433 


TAD 

I 

SAVE 

3420 

3033 


OCA 


SAVE 

3421 

5433 


JMP 

I 

SAVE 

3422 

1410 

KYBOAA, 

TAO 

I 

AUTPTR 

3423 

4514 


JH8 

I 

CHKNR 

3424 

T450 


SNA 



3425 

5233 


JMP 


KYBOA 

3426 

T041 


c u 



3427 

3034 


DCA 


COUNT 

3430 

1173 


TAD 


M144 

3431 

2034 


ISZ 


COUNT 

3432 

5230 


JMP 


.-2 

3435 

3026 

KYBOA, 

DCA 


WIDTH 


/TYPE COLUMNS HESG 

/CLE*R COLUMN COUNT 
/READ * COLUMNS 
/GET TABLE ADR 

/set table pointer 

/GET CHAR COUNT PROM INPUT ROUTINE 

/MAKE IT POSITIVE 

/AOD TABLE STARTING ADR 

/SAVE TABLE ENTRY ADR 

/GET TABLE ENTRY 

/SAVE ADR FOR CONVERSION ROUTINE 
/CONVERT INPUT NUMBER TO BINARY (OCTAL) 
/GET CHAR 

/CHECK IP NUMBER t MAKE OCTAL 
/ZERO? 

/YES, CONTINUE 
/NEGATE * 

/STORE IN COUNT 
/CONVERT TO BINARY 


/STORE 4 
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3030 

1*10 

TAO 

I 

3035 

0510 

JMS 

I 

3036 

7050 

SNA 


3037 

5207 

JMP 


3000 

7001 

CIA 


3001 

3030 

DCA 


3002 

1160 

TAO 


3003 

2030 

ISZ 


3000 

5202 

JMP 


3005 

1026 

TAD 


3006 

3026 

DCA 


3007 

1010 

KYBD8, TAD 

I 

3050 

0510 

JMS 

I 

3051 

7001 

CIA 


3052 

1026 

TAD 


3053 

3026 

DCA 


3050 

1 126 

TAO 


3055 

1026 

TAD 

8ZA 

3056 

7700 

SMA 

3057 

5512 

JMP 

I 

3060 

HOT 

TAO 


3061 

1026 

TAD 

CL* 

3062 

7710 

SPA 

3063 

5512 

JMP 

I 

3060 

5510 

JMP 

I 


28-MAY-76 
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AUTPTR 

/GET NEXT DIGIT 

CHKNR 

/CHECK IF * 

KYBDB 

/zero? 

/YES, CONTINUE 

COUNT 

/negate * 

/STORE IN COUNT 

M12 

/CONVERT TO BINARY 

COUNT 

.•2 

WIDTH 

/ADO TO CURRENT TOTAL 

WIDTH 

/STORE NEW « 

AUTPTR 

/GET LAST DIGIT 

CHKNR 

/CHECK IF # 

WIDTH 

/NEGATE IT 

/ADO TO CURRENT TOTAL 

WIDTH 

/STORE WIDTH 

P2 

/CHECK COLUMN SELECTION 

WIDTH 

CLA 

/# COLUMNS <2? 

TREADQ 

/YES, INPUT ERROR 

P20O 

WIDTH 

TREADQ 

/* COLUMNS >132 C10)7 
/YES, INPUT ERROR 

TTSEL 

/NO, GO TO TEST SELECT 


/ROUTINE to select test from console device kybd 
/AND determine test action by input control char 
/TEST NUMBER MUST BE A 2 DIGIT OCTAL NUMBER# FOLLOWED 
/BY ONE OF THE CONTROL CHARACTERS BELOWI 


/PERIOD . » RUN TEST ONCE l SELECT NEXT TEST 

/I ■ LOOP ON SELECTED TEST 

/8 ■ START TEST SEQUENCE WITH SELECTED TEST 


3465 6002 TSEL# 

3066 6132 

3067 7300 

3070 0505 

3071 3051 

3072 3052 

3073 3050 

SOTO 1125 
3075 3002 

30T6 0055 

3077 0755 

3500 0511 

3501 1520 

3502 1155 

3503 7650 

3500 5066 

3505 2030 

3506 5512 

3507 1377 

3510 3010 


IOF 

CLOI 

CLA CLL 

JM3 I TPSIE 

DCA TRONE 

DCA TLOOP 

DCA STRONE 

TAD LIERR 

DCA I5RV 

TYPE 

8ELT8T 

JMS I READ 

TAO I LREAOT 

TAD M3 

SNA CL* 

JMP I TKBDST 

ISZ COUNT 

JMP I TREADQ 

TAO CREAOT-1 

DCA AUTPTR 


/DISABLE INTERRUPTS 


/CLEAR PROGRAM CONTROL FLAGS 


/SET INTERRUPT ERROR ADR 

/TYPE SELECT TEXT MESG 

/GET SELECTION 

/FIRST CHAR * CONTROL-C 7 


/YES, GET * COLUMNS 
/CORRECT # CHAR'S INPUT? 
/NO# INPUT ERROR 
/GET TABLE ADR 
/SET POINTER 
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PAL10 

V102A 
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3511 

1410 


TAO 

I 

AUTPTR 

/GET FIRST DIGIT 

3512 

0513 


JMS 

I 

CHKOCT 

/CHECK IF OCTAL 

3513 

7106 


CLL 

RTL 


/SHIFT TO CORRECT POSITION 

3510 

Ti 00 


CLL 

ral 



3515 

3023 


DCA 


TSTNN 

/STORE 

3516 

1010 


TAO 

I 

AUTPTR 

/GET SECOND DIGIT 

351T 

0513 


JMS 

I 

CHKOCT 

/CHECK & MAKE OCTAL 

3520 

1023 


TAO 


TSTNM 

/ADO TO CURRENT # 

3521 

3023 


OCA 


TSTNM 

/STORE SELECTED TEST # 

3522 

1070 


TAO 


ttat 

/GET TEST ADR TABLE ADR 

3523 

1023 


TAD 


TSTNM 

/ADO TEST » 

3520 

3001 


OCA 


TABPTR 

/STORE POINTER 

3525 

1001 


TAO 

I 

TABPTR 

/GET TEST ADR 

3526 

7550 


SNA 

SPA 


/TEST IN TABLET 

3527 

5512 


JMP 

I 

TREADQ 

/NO * INVALID TEST « 

3530 

3002 


DCA 


TSTPTR 

/YES, STORE TEST ADR 

3531 

1010 


TAD 

I 

AUTPTR 

/GET CONTROL CHAR 

3532 

3033 


DCA 


SAVE 

/SAVE CONTROL CHAR 

3533 

1171 


TAD 


H56 

/CHECK IF PERIOD 

3530 

1033 


TAD 


SAVE 


3535 

7600 


SZA 

CL* 


/PERIOD? 

3536 

5302 


JMP 


TSEL 1 

/NO, CONTINUE 

3537 

7200 


CLA 

CMA 


/YES, SET ONE-RUN FLAG 

3500 

3051 


OCA 


TRONE 


3501 

5355 


JMP 


TSELX 

/GO TO TEST 

3502 

1033 

TSEL1, 

TAO 


SAVE 

/GET CHAR 

3503 

0375 


AND 


1137 

/ALLOW LOWER CASE 

3500 

1370 


TAO 


(-114 

/CHECK CHAR 

3505 

7000 


SZA 



/CHAR «L? 

3506 

5352 


JMP 


TSEC2 

/NO, continue 

3507 

7200 


CLA 

cma 


/YES, SET LOOP ON TEST FLAG 

3550 

3052 


DCA 


TLOOP 


3551 

5355 


JMP 


TSELX 

/GO TO TEST 

3552 

1157 

T8EL2, 

TAD 


M7 

/CHECK CHAR 

3553 

7600 


SZA 

CL* 


/CHAR.S7 

3550 

5512 


JMP 

I 

TREADQ 

/INVALID INPUT, READ AGAIN 

3555 

0055 

TSELX, 

TYPE 


/YES, TYP CR-LF AND GO TO TEST 

3556 

5001 


CRLF 



3557 

5002 


JMP 

I 

TSTPTR 



3570 7660 

3575 0137 

3576 3000 

3577 0503 

3600 PAGE 

/ERROR ROUTINE# ERROR MESG IS IN FORM I 

/ 

/TEST 6XX, PC*XXXX# ERROR 6XXXX, MESSAGE>»>>>> 


3600 

0000 

RERROR, 0 



3601 

T240 

CLA CHA 


/GET ERROR PC 

3602 

1200 

TAO 

RERROR 


3603 

3025 

DCA 

ERRPC 

/SAVE IT 


SEQ 0056 


SEO 0057 
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SEQ 0058 


3604 

1600 


TAD ! 

RERROR 

/GET error NUMBER 

3608 

3024 


OCA 

ERRNM 

/SAVE IT 

3606 

4321 


GETSW 


/GET SW REG 

3607 

T004 


RAL 


/GET SW 1 

3610 

7710 


SPA CL* 


/want ERROR mesgt 

3611 

5250 


JMP 

IERRT 

/NO, SKIP PRINT OUT 

3612 

1033 


TAD 

TPFLG 

/CHECK IF TERMINAL EXISTS 

3613 

TbS0 


SNA CL* 



3616 

5230 


JMP 

IERRT 

/NO, SKIP PRINT OUT 

361S 

4455 


TYPE 


/PRINT FIRST PART OF MESG 

3616 

5036 


ET8TN0 



361T 

1023 


TAD 

T8TNM 

/GET TEST * 

3620 

7012 


RTR 


/GET FIRST DIGIT 

3621 

7010 


RAR 



3622 

4522 


JMS I 

PDIGIT 

/PRINT IT 

3623 

1023 


TAD 

TSTNM 

/GET TEST # 

3629 

9322 


JM8 I 

PDIGIT 

/PRINT SECOND DIGIT 

3625 

4433 


TYPE 


/TVPE MORE OF MEBG 

3686 

3043 


PCN3G 



3627 

1023 


TAD 

ERRPC 

/GET ERROR PC 

3630 

4523 


JMS I 

TPOCT 

/PRINT IT 

3631 

4453 


TYPE 


/TVPE MORE OF MESG 

3632 

3047 


ERR 



3633 

1024 


TAD 

ERRNM 

/GET ERROR * 

3639 

4323 


JMS I 

TPQCT 

/TYPE IT 

3635 

4033 


TYPE 


/TYPE SPACES 

3636 

5053 


ERRS 



363T 

1377 


TAD 

(EMAT-1 

/GET ERROR MESG ADR TABLE 

3690 

1024 


TAD 

ERRNM 

/ADO ERROR # 

3691 

3245 


DCA 

R8AVE 

/STORE POINTER 

3692 

1645 


TAD I 

RSAVE 

/GET MESG AOR 

3693 

3245 


DCA 

RSAVE 

/SET FOR TYPE 

3699 

4435 


TYPE 


/TYPE END OFMESG 

3643 

0000 

RSAVE, 

0 



3696 

4455 


TYPE 


/TYPE CR-LF 

3697 

5441 


CRLF 



3650 

4521 

IERRT, 

GETSW 


/GET SW REG 

3651 

7700 


8MA CL* 


/STOP ON ERROR? 

3652 

3235 


JMP 

.73 

/NO, RETURN 

3653 

1029 


TAD 

ERRNM 

/YES, GET ERROR * 

3639 

4457 


HOLD 


/STOP 

3633 

2200 


I8Z 

RERROR 

/SET RETURN AOR 

3656 

7300 


CL* eLl 


/CLEAR AC AND LINK 

363T 

5600 


JMP I 

RERROR 

/return 



/ROUTINE TO PRINT AN OCTAL 

DIGIT ON THE CONSOLE DEVICE 

3660 

0000 

RPDIGT, 

0 



3661 

0127 


AND 

PT 

/MASK DIGIT 

3662 

1140 


TAD 

P60 

/MAKE ASCII 

3643 

4515 


JMS I 

GOUT 

/PRINT IT 

3664 

3660 


JMP I 

RPOIGT' 

/RETURN 



/ROUTINE TO CONVERT 9 DIGIT OCTAt NUMBER TO ASCII AND TYPE ON CONSOLE 
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3665 

0000 

POCT, 

0 




3666 

3312 


OCA 


OCTSAV 

/SAVE NUMBER 

3667 

1312 


TAO 


OCTSAV 

/GET NUMBER AGAIN 

3670 

7012 


RTR 



/GET FIR8T DIGIT 

3671 

7012 


RTR 




3672 

7012 


RTR 




3673 

7012 


RTR 




3674 

7010 


RAR 




3673 

4522 


JMS 

I 

PDIGIT 

/PRINT IT 

3676 

1312 


TAO 


OCTSAV 

/GET NUMBER 

3677 

7012 


RTR 



/GET SECONO DIGIT 

3700 

7012 


RTR 




3701 

7012 


RTR 




3702 

4522 


JMS 

I 

PDIGIT 

/PRINT IT 

3703 

1318 


TAO 


OCTSAV 

/get NUMBER 

3704 

7012 


RTR 



/GET THIRD DIGIT 

3705 

7010 


RAR 




3706 

9SE2 


JMS 

I 

PDIGIT 

/PRINT IT 

3707 

1312 


TAD 


OCTSAV 

/GET NUMBER 

3710 

4582 


JMS 

I 

PDIGIT 

/PRINT LAST DIGIT 

3711 

5665 


JMP 

I 

POCT 

/RETURN 



3712 00B0 OCTSAVi 0 


/ROUTINE TO CONVERT OCTAL NUMBER TO 3 DIGIT DECIMAL NUMBER IN ASCII STRING 
/RETURN WITH CONVERT NUMBER STRING IN CNVMSG, 


3713 

0000 

CNVRT, 0 



3714 

3361 

DCA 

CNVNM 

/SAVE NUMBER 

3715 

3046 

DCA 

HUND3 

/CLEAR CONVERSION COUNTERS 

3716 

3045 

DCA 

TENS 


3717 

30P4 

OCA 

ONES 


3720 

1361 

TAO 

CNVNM 

/GET NUMBER 

3721 

2046 

IBI 

hunds 

/get hundresd digit 

3722 

1173 

TAO 

M 1 44 


3723 

7500 

8MA 



3724 

3321 

JMP 

.-3 


3725 

1376 

TAD 

£144 


3726 

2045 

ISZ 

TENS 

/GET TENS DIGIT 

3727 

1160 

TAO 

M12 


3730 

7500 

8MA 



3731 

5326 

JMP 

.-3 


3732 

3044 

OCA 

DNES 

/STORE ONES DIGIT -18 

3733 

1375 

TAO 

(CNVMSG 

/SET MESG AOR 

3734 

3362 

DCA 

MSGPTR 


3735 

1046 

TAO 

HUNDS 

/GET HUNDREDS DIGIT 

3736 

1137 

TAO 

P5T 

/MAKE ASCII 

3737 

7006 

RTL 


/SET FIRST CHAR 

3740 

7006 

RTL 



3741 

7006 

RTL 



3742 

0178 

AND 

H100 

/MASK OTHER BITS 

3743 

3762 

DCA I 

MSGPTR 

/STORE CHAR IN MESG 

3744 

1045 

TAD 

TENS 

/GET TENS DIGIT 

3795 

1137 

TAD 

PST 

/MAKE ASCII 




SEQ P060 


/maindec-bs-dilac-b-l nu« virsa 


2S-MAY-76 


91 a a PAGE f.-40 


3746 

1762 


TAD I 

HSGPTR 

/ADD FIRST CHAR 

3747 

3762 


DCA I 

MSGPTR 

/STORE CHAR PAIR 

3750 

2362 


IS! 

MSGPTR 

/INC MESG POINTER 

3751 

1044 


TAD 

ONES 

/GET ONES DIGIT 

3752 

1141 


TAD 

P72 

/MAKE ASCII 

3753 

7006 


RTL 


/rotate TO CORRECT POSITION 

3754 

7006 


RTL' 



3755 

7006 


RTL 



3756 

0172 


AND 

M100 

/MASK OTHER BITS (NULL » TERMINATOR) 

3757 

3762 


DCA I 

MSGPTR 

/STORE CHAR 

3760 

5713 


JMP I 

CNVRT 

/RETURN 

3761 

0000 

CNVNM, 

0 


/SAVE NUMBER 

3762 

0000 

MSGPTR, 

0 


/MESG pointer 

3775 

5435 





3776 

0144 





3777 

4677 






4000 


PAGE 





/TYPE ROUTINE - 

TO TYPE 

ASCII MESSAGES 



/CALL! 

TYPE - , 

JUMP TO 

TYPE ROUTINE 



/ 

MESAOR ■ 

» MESSAGE ADDRESS 



/RETURN 

WITH CLEAR AC AND LINK 

4000 

0000 

RTYPEi 

0 



4001 

7300 


CLA CLL 


/clear 

4002 

1053 


TAD 

TPFLG 

/get terminal flag 

4003 

7640 


SZA cla 


/TERMINAL THERE? 

4004 

5207 


JMP 

,♦3 

/YES, CONTINUE 

4005 

2200 

RT2, 

ISZ 

RTYPE 

/INC RETURN ADR 

4006 

5600 


JMP I 

RTYPE 

/return 

4007 

1600 


TAD I 

RTYPE 

/GET MESG ADR 

4010 

3043 


DCA 

MSGADR 

/STORE 

4011 

1443 

RT l, 

TAD I 

MSGADR 

/GET CHAR PAIR 

4012 

7112 


CLL RTR 



4013 

7112 


CLL RTR 



4014 

7112 


CLL RTR 



4015 

4222 


JHS 

OUT 

/PRINT CHAR 

4016 

1443 


TAD I 

MSGADR 

/GET CHAR PAIR 

4017 

4222 


JHS 

OUT 

/PRINT CHAR 

4020 

2043 


ISZ 

MSGADR 

/ADR NEXT CHAR PAIR 

4021 

5211 


JMP 

RTI 

/continue 

4022 

0000 

OUT, 

0 



4023 

0142 


AND 

P77 

/MASK CHAR ' 

4024 

7450 


SNA 


/CONTINUE IF NOT END 

4025 

5205 


JMP 

RT2 

/ZERO, RETURN 

4026 

3033 


DCA 

SAVE 

/SAVE CHAR 

4027 

1033 


TAD 

SAVE 

/get char 

4030 

1377 


TAD 

(-53 

/CHECK CHAR 

4031 

7450 


SNA 


/WANT CR-LF? 

4032 

5244 


JMP 

OUTCL 

/YES, DO CR-LF 

4033 

1162 


TAD 

M20 

/CHECK CHAR 

4034 

7650 


SNA CLA 


/WANT lf? 
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4035 

5251 


JMP 


OUTLF 

/YES, 00 LF 

4036 

1033 


TAD 


SAVE 

/GET GHAR AGAIN 

4037 

0134 


AND 


P40 

/hake ascii 

4040 

7650 


SNA 

CL* 



4041 

1143 


TAD 


P100 


4042 

1033 


TAD 


SAVE 


4043 

5253 


JMP 


OUTCHR 

/PRINT CHAR 

4044 

7300 

OUTCL, 

CLA 

CLL 


/clear 

4045 

1132 


TAD 


P15 

/GET CR 

4046 

4501 


JM8 

I 

TTLS 

/PRINT 

4047 

4476 


JHS 

I 

TTSF 

/WAIT for ready 

4050 

524T 


JMP 


.-1 


4051 

7300 

dutlf, 

CLA 

CLL 


/clear 

4052 

1131 


TAD 


P12 

/GET LF 

4053 

4501 

outchr, 

JMS 

I 

TTLS 

/PRINT CHR 

4054 

4476 


JMS 

I 

TTSF 

/WAIT FOR READY 

4055 

5254 


JMP 


.-1 

• 

4056 

7300 


CLA 

CLL 


/clear 

4057 

5622 


JMP 

I 

OUT 

/return 



/routine to 

LOAD single 

CHARACTERS TO LA 180 PRINTER 



/CALLI 



load 


4060 

0000 

rload, 

0 




4061 

4464 


CHECK 


/CHECK FDR CONTROL 

4062 

7300 

PL A, 

CLA 

cll 


/CHECK READY TIME 

4063 

3303 


DCA 


RLDC 


4064 

13T6 


TAD 


(-300 


4065 

3304 


DCA 


RLDCC 


4066 

2303 

RLB, 

ISZ 


RLDC 


4067 

5275 


JHP 


RLC 


4070 

2304 


ISZ 


RLDCC 


4071 

5275 


JMP 


RLC 


4072 

4463 


ERROR 


/PRINTER NOT READY 

4073 

0016 


16 




4074 

5660 


JHP 

I 

RLOAD 

/EXIT 

4075 

4502 

RLC, 

JMS 

I 

TP5KF 

/CHECK FOR PRINTER READY 

4076 

5266 


JMP 


RLB 

/WAIT FOR READY 

4077 

1033 


TAD 


SAVE 


4100 

4506 


JHS 

1 

tpclp 

/LOAD CHAR 

4101 

7300 


CLA 

cll 


/CLEAR AC AND LINK 

4102 

5660 


JHP 

I 

rload 

/RETURN 

4103 

0000 

RLOC, 

0 



/delay COUNT, 

4104 

0000 

RLDCC, 

0 





SEO 0061 


/ROUTINE TO LOAD MULTIPLE CHARACTERS (NOT TEXT STRINGS) TO LA 1 SO 
/WILL LOAO CHAR ONCE IT COUNT » 0 

/PUT CHAR IN AC AND CHAR COUNT IN "COUNT" (NEGATIVE NUMBER) 
/CALL! MLOAD 

4105 0000 UNLOAD, 0 



miNDEC.C6»DlUC*6.l 


SEG 0062 


4106 3033 

4107 1033 

4110 44S6 

4111 {934 

4112 1034 

4113 7710 

4114 3307 

4115 5703 

4176 7300 

4177 77{5 
4200 


PAL10 


V142A 

28»MAY»T6 

4148 PAGE 1*42 

OCA 

SAVE 

/SAVE CHAR 

TAD 

SAVE 

/GET CHAR 

LOAD 


/LOAD CHAR 

IS! 

COUNT 

/INC COUNT 

TAD 

COUNT 

/CHECK IF WAS ZERO 

SPA CL* 


/SKIP IF WAS ZERO OR IS ZERO 

JMP 

RML0A0*2 

/CONTINUE 

JMP I 

RMLOAO 

/return 


PAGE 


/ROUTINE TO PRINT ASCII messages ON THE UA180 PRINTER 
/SPECIAL CHARACTERS ARE LISTED AT THE BEGINNING OP THE 
/PROGRAM MESSAGE AREA, 

/CALLI PRINT • CALL TO SUBROUTINE 
/ ME8A0R - MESSAGE A00RE8S 

/RETURN WITH CLEAR AC AND LINK 


A200 

0000 

RPRINTi 

> 0 




4201 

7300 


CLA 

CLL 


/clear 

4202 

1600 


TAD 

I 

RPRINT 

/GET HESG ADR 

4203 

3043 


DCA 


MSGAOR 

/STORE 

4204 

2200 


I8Z 


RPRINT 

/INC RETURN ADR 

4205 

1443 

RP1, 

TAD 

I 

MSGADR 

/GET CHAR PAIR 

4206 

7112 


CLL 

RTR 



4207 

7112 


CLL 

RTR 



4210 

7112 


CLL 

RTR 



4211 

4216 


JM8 


PRT 

/LOAD CHAR 

4212 

1443 


TAD 

I 

MSGADR 

/GET pair again 

4213 

4216 


JM8 


PRT 

/LOAD CHAR 

4214 

2043 


I8Z 


MSGADR 

/SET NEXT CHAR ADR 

4215 

5205 


JMP 


RP1 

/CONTINUE 

4216 

0000 

PRT, 

0 




4217 

0142 


AND 


P77 

/MASK CHAR 

4220 

7450 


SNA 



/CONTINUE IF NOT END 

4221 

5600 


JMP 

I 

RPRINT 

/ZERO, RETURN 

4222 

3033 


OCA 


SAVE 

/SAVE CHAR 

4223 

1033 


TAD 


SAVE 

/GET AGAIN 

4224 

1377 


TAO 


(•41 

/CHECK CHAR 

4225 

7450 


SNA 



/WANT FFT 

4226 

5246 


JMP 


PRTFF 

/YES, DO FF 

4227 

1160 


TAD 


H12 

/CHECK AGAIN 

4230 

7450 


SNA 



/HAND CRLF7 

4231 

5254 


JMP 


PRTCL 

/YES, DO CRLF 

4230 

1376 


TAD 


(•IT 

/CHECK AGAIN 

4233 

7450 


SNA 



/want cr only? 

4234 

5251 


JMP 


PRTCR 

/YES, DO CR 

4235 

1153 


TAD 


Ml 

/CHECK AGAIN 

4236 

7650 


SNA 

CL* 


/WANT lf only? 

4237 

5257 


JMP 


PRTLF 

/YE8, DO LF 

4240 

1233 


TAD 


SAVE 

/get char again 

4241 

0134 


AND 


poo 

/MAKE ASCII 

424£ 

7650 


SNA 

CL* 
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4243 

1143 


tad 


P120 


4244 

1233 


TAD 


SAVE 


4245 

5262 


JMP 


PRTCHR 

/LOAO CHAR 

4246 

7322 

PRTFF| 

CLA 

CLL 


/CLEAR 

4247 

1375 


TAD 


(to 

/GET FF 

4250 

5260 


JMP 


PRTCHR 

/GO LOAD FF 

4251 

7300 

PRTCR, 

CLA 

cll 


/clear 

4252 

1132 


TAD 


P15 

/GET CR 

4253 

5260 


JMP 


PRTCHR 

/GO LOAO CR 

4254 

7300 

PRTCL, 

CLA 

CLl 


/CLEAR 

4255 

1132 


TAO 


PI 5 

/GET CR 

4256 

4456 


LOAD 



/LOAO CR 

4257 

1131 

PRTLF, 

TAD 


P12 

/GET LF 

4260 

4456 

PRTCHR, 

LOAO 



/LOAD CHAR 

4261 

5616 


JMP 

I 

PRT 

/return 


/ROUTINE TO PRINT TEST HFADER ON LA 160 

/# OF COLUMNS WILL ALSO BE PRINTEn POR TEST 25 ONLY 


4262 

0000 

RPRHDR, 0 


0263 

7300 

CLA CLL 


4264 

1145 

TAO 

PITT 

0265 

4456 

LOAO 


4266 

1331 

TAO 

3VTST 

4267 

7041 

CIA 


4270 

1023 

TAO 

TSTNM 

42T1 

7650 

SNA CLA 


4HT2 

5326 

JMP 

HORX 

4273 

1023 

TAO 

TSTNM 

4274 

3331 

DCA 

SVTST 

4275 

4461 

PRINT 


4276 

5020 

T8TN0 


4277 

1023 

tad 

TSTNM 

4300 

7012 

RTR 


4301 

7010 

RAR 


4302 

0127 

AND 

PT 

4303 

1140 

TAD 

P60 

4304 

4456 

LOAO 


4305 

1023 

TAD 

TSTNM 

4306 

01*7 

AND 

PT 

4307 

1140 

TAO 

P60 

4310 

4456 

LOAO 


4311 

0461 

PRINT 


4312 

5440 

LF 


4313 

1164 

TAO 

M25 

4314 

1023 

TAO 

TSTNM 

0315 

7640 

SZA CL* 


4316 

5326 

JMP 

HORX 

4317 

1026 

TAO 

WIDTH 

4320 

7041 

CIA 


4321 

4517 

JMS I 

TCNVRT 

4322 

4461 

PRINT 


4323 

5435 

CNVMSG 


4324 

4461 

PRINT 



/clear 
/set rubout 

/CLEAR LA 180 CHAR BUFFER 
/GET SAVED TEST * 

/NEGATE IT 

/AOO CURRENT TEST * 

/CHECK IF PRINTED THIS # LAST 
/YES, PRINT BLANK LINE 8 EXIT 
/NO, STORE NEW NUMBER 

/LOAO TEST « MESG 

/GET TEST » 

/GET FIRST DIGIT 

/MAKE ASCII 

/LO*D IT 
/GET TEST i 
/GET LAST OIGIT 
/MAKE ASCII 
/LOAD IT 
/PRINT LINE 

/CHECK IF TEST 25 

/IS ITT 

/NO, PRINY BLANK LINE A EXIT 
/GET NUMBER OF COLUMNS 
/MAKE POSITIVE 

/CONVERT NUMBER TO DECIMAL, ASCII STRING 
/PRINT IT 



/HAINDEC-08-OILAC-B-L 

PAL 10 

V148 A 

88-MAY-76 

9140 PAGE 1-44 

4385 

5030 


COLHN 



4386 

4461 

HDRX, 

PRINT 


/blank line 

4387 

5440 


LF 



4330 

5668 


JHP I 

RPRHDR 

/return 

4331 

0000 

8VTS7, 

0 


/SAVE TEST * FOR CHECK 


4375 0014 

4376 77*1 

4377 7737 

4400 PAGE 

/ROUTINE 70 READ 4 CHARS FROM THE CONSOLE KEYBOARD 

/ 

/RUBOUTS DELETE CHARACTERS 
/eONTROL»U (*U) RESTARTS INPUT ROUTINE 


4400 

0000 

TREAD, 

0 



4401 

7300 

READ0, 

CIA cll 


/CLEAR 

4408 

3303 


DCA 

RFLAG 

/clear RUBOUT flag 

4403 

1156 

READ1, 

TAD 

H4 

/SET « CHARS TO REAO 

4404 

3034 


DCA 

COUNT 

/STORE 

4405 

1184 


TAD 

LREAOT 

/GET CHAR STORE TABLE ADR 

4406 

3041 


DCA 

TABPTR 

/SET POINTER 

4407 

4478 

READSi 

JMS I 

TKSF 

/KYBD FLAG sett 

4410 

5807 


JHP 

.*1 

/no, WAIT 

4411 

4475 


JH8 I 

TKRB 

/YES, READ CHAR 

4418 

0145 


AND 

P17 7 

/HAKE ASCII 

4413 

3441 


DCA I 

TABPTR 

/SAVE CHAR 

4414 

1170 


TAD 

M40 

/CHECK CHAR 

4415 

1441 


TAD I 

TABPTR 


4416 

7650 


SNA CL* 


/CHAR»SPACET 

4417 

5807 


JHP 

READS 

/YES, IGNORE IT 

4480 

1164 


TAO 

H85 

/CHAR * CONTROL-U 

4481 

1441 


TAD I 

TABPTR 


4488 

7650 


SNA CL* 



4483 

5854 


JHP 

READU 

/YES, TYPE IT AND RESTART 

4484 

1174 


TAD 

H177 

/CHECK CHAR 

4483 

1441 


TAO I 

TABPTR 


4486 

7650 


SNA CL* 


/CHARiRUBOUT? 

4487 

5857 


JHP 

READD 

/YES, DELETE LAST CHAR 

4430 

1161 


TAD 

H15 

/CHECK FOR CR- END OF INPUT 

4431 

1441 


TAO I 

TABPTR 


4438 

7650 


SNA CL* 


/CHAR«CR? 

4433 

5600 


JHP I 

TREAD 

/YES, RETURN 

4434 

1303 


TAD 

RFLAG 

/CHECK RUBOUT FLAG 

4435 

7630 


SNA CL* 


/RECEIVED RUBOUTT 

4436 

5841 


JMP 

.♦3 

/NO, CONTINUE 

4437 

1144 


TAD 

P134 

/GET BACKSLASH 

4440 

4515 


JMS I 

GOUT 

/PRINT IT 

4441 

3303 


OCA 

RFLAG 

/CLEAR RUBOUT FLAG 

4448 

1441 


TAO I 

TABPTR 

/GET CHAR 

4443 

4501 


JHS I 

TTLS 

/ECHO CHAR 

4444 

4476 


JHS I 

TTSF 


4445 

5844 


JMP 

.-1 


/MAINOEC-0B-DILAC-B.L 

PAL10 

V148A 

88-HAY-76 

9146 PAGE 1-45 

4446 

8041 


ISZ 

TABPTR 

/INC table POINTER 

4447 

8034 


ISZ 

COUNT 

/INC CHAR COUNT 

4450 

3807 


JHP 

READS 

/READ CHAR 

4451 

4455 

REA0Q, 

TYPE 


/TYPE QUESTION MASK 

4458 

5443 


QUE8 



4453 

5801 


JHP 

REA00 

/READ NEW STRING 

4454 

4455 

READU, 

TYPE 


/TYPE CONTROL-U 

4455 

5445 


CNTLU 



4456 

5801 


JHP 

READ0 

/RESTART ROUTINE 

4457 

7840 

REAOD, 

CL* CM* 


/SET AC»-i 

4460 

1034 


TAD 

COUNT 

/ado count 

4461 

3034 


DCA 

COUNT 

/STORE NEW COUNT 

4468 

1377 


TAD 

(4 

/CHECK CHAR COUNT 

4463 

1034 


TAD 

COUNT 


4464 

7710 


SPA CL* 


/LESS THAN -57 

4465 

5803 


JHP 

READ1 

/YES, RESTART READ ROUTINE 

4466 

7840 


CL* CHA 


/SET AC»-l 

4467 

1041 


TAD 

TABPTR 

/SUBTRACT ONE FROM TABLE POINTER 

4470 

3041 


DCA 

TABPTR 

/STORE NEW POINTER 

4471 

1303 


TAD 

RFLAG 

/CHECK RUBOUT FLAG 

4478 

7640 


S2A CL* 


/SETT 

4473 

5876 


JHP 

.73 

/YES, SKIP BACKSLASH 

4474 

1144 


TAD 

P134 

/NO, PRINT BACKSLASH 

4475 

4515 


JHS I 

GOUT 


4476 

1441 


TAD I 

TABPTR 

/get deleted CHAR 

4477 

4515 


JHS I 

GOUT 

/PRINT IT 

4500 

7840 


CLA CHA 


/SET RUBOUT FLAG 

4501 

3303 


DCA 

RFLAG 


4508 

5807 


JHP 

reads 

/READ NEXT CHAR 

4503 

0000 

RFLAG, 

0 



4504 

0000 

readt, 

0 



4505 

0000 


0 



4506 

0000 


0 



4507 

0000 


0 





/ROUTINE TO CHECK FOR OCTAL 

DIGIT INPUT 

4510 

0000 

TCKOUT, 

0 



4511 

4380 


JMS 

TCHKNR 

/CHECK IF NUMBER FIRST 

4518 

0130 


AND 

P10 

/CHECK IF OCTAL 

4513 

7*40 


SZA CL* 


/» ■ 6 OR 97 

4514 

5518 


JHP I 

TREADO 

/YES, INPUT ERROR 

*515 

1033 


TAD 

SAVE 

/OK, GET * 

4516 

0187 


AND 

P7 

/HAKE OCTAL 

4517 

5710 


JHP I 

TCKOUT 

/RETURN 


SEO 0065 


/ROUTINE TO CHECK INPUTTED CHAR IF A NUMBER 1 
4380 0000 TCHKNR, 0 



/MAINOEe-BB-OILAC-B-L PAL10 V142A 28-MAY-76 


9148 


PAGE 1-06 


SEQ 0066 


4521 

3033 

OCA SAVE 

/SAVE CHAR 

0522 

1376 

TAD t-60 

/CHECK CHAR 

4523 

1033 

TAD SAVE 


0520 

7710 

SPA CL* 

/NUMBER? 

0585 

5512 

JHP I TREADQ 

/NO, INPUT ERROR 

0526 

1375 

TAD <-72 

/CHECK AGAIN 

4527 

1033 

TAD SAVE 


0530 

7700 

SHA CL* 

/NUMBER? 

0531 

5512 

4MP I TREADQ 

/NO, INPUT ERROR 

0338 

1033 

TAD SAVE 

/SET CHAR 

0533 

0370 

AND <17 

/HASK NOT EQUAL 

4534 

5720 

JMP 1 tchknr 

/RETURN 

0533 

2601 

IOTAS, RKSF*1 

/I-O INSTRUCTION ADDRESS TABLE 

0336 

2606 

RKCC+l 


0337 

2611 

RKR3*1 


4540 

2614 

RKRB+1 - 


4301 

2617 

RTSF+1 


4302 

2624 

RTCF*1 


4543 

2627 

RTPC+l 


4300 

2632 

RTLSPl 


0343 

0000 

0 

/END OF TTY 107*8 

4506 

2637 

RPSKF+S 


4307 

2651 

RFCLF+3 


0550 

2661 

RP8TBT3 


0331 

8673 

RP8IE*3 


4552 

2705 

RPCLP»3 


0533 

0000 

0 

/END OF TABLE 


4374 8017 

0373 7706 

0376 7720 

0577 0000 

0600 


0600 0000 
"0601 0710 

4602 1000 

0603 0000 

4600 0000 

4603 0000 

4606 0000 

4607 0000 

4610 0000 

4611 0000 

4612 0000 

0613 0000 

0614 0000 


/MAINDEC-08-DILAC-B-L 

PAL10 V148A 

8S-HAY-76 9148 PAGE 1-47 

SEQ 0067 

0615 

0000 

0 

/TEST15 


4616 

0000 

0 

/TEST16 


4617 

0000 

0 

/TEST17 


4620 

1200 

TES720 



4621 

1227 

TEST21 



4622 

1270 

TE8TJ2 



4623 

1331 

TE8T23 



4624 

1400 

TE8T20 



4625 

1600 

7EST85 



4626 

2000 

TESTB8 



4627 

2030 

TEST27 



4630 

2200 

TES730 



4631 

2212 

TEST31 



4632 

4633 

777? 

0000 

*1 

0 

/TEST38 END OF TEST SEQUENCE 

/TEST33 


4630 

0000 

0 

/TEST34 


0635 

0000 

0 

/TEST35 


4636 

0000 

0 

/TEST36 


4637 

0000 

0 

/TEST3T 


4640 

0000 

0 

/TEST40 


4641 

0000 

0 

/TEST 41 


4602 

0000 

0 

/TEST42 


4603 

0000 

0 

/TEST43 


4604 

0000 

0 

/TEST44 


4645 

0000 

0 

/TEST4S 


4646 

0000 

0 

/TEST46 


0647 

0000 

0 

/TEST07 


4650 

0000 

0 

/TEST50 


4651 

0000 

0 

/TE8T31 


4652 

0000 

0 

/TEST33 


4653 

0000 

0 

/TE8T53 


4654 

0000 

0 

/TEST3« 


0655 

0000 

0 

/TEST53 


4656 

0000 

0 

/TEST56 


065T 

0000 

0 

/TEST57 


4660 

2246 

TEST60 



0661 

2000 

TESTfcl 



4662 

2030 

TE8T62 



4663 

2077 

TEST63 



4664 

0000 

0 

/TEST60 


4663 

0000 

0 

/TrST65 


0666 

0000 

0 

/TEST66 


0667 

0000 

0 

/TEST67 


4670 

0000 

0 

/TEST70 


4671 

0000 

0 

/TEST71 


4672 

0000 

0 

/TEST72 


4673 

0000 

0 

/TEST73 


4674 

0000 

0 

/TESTT4 


4675 

0000 

0 

/TEST75 


4676 

0000 

0 

/TEST76 


4677 

0000 

0 

/TEST77 



PAGE 

/TEST ADDRESS TABLE 
/ 

/® ■ NON-EXISTENT TEST, SKIP IN SEQUENCE 

/-I « END OP TEST SEQUENCE, RES7ART WITH TEST #20 

TAT, TEST® 

TEST 1 
TEST2 

0 /tests 

0 /TESTO 

0 /TEST5 

0 /TEST6 

0 /TEST7 

0 /TEST 10 

0 /TEST!1 

0 /TEST12 

0 /TESTIS 

0 /TEST 14 




91 a« 


PAGF 1-4S 


SEG 0068 


/HAi'NDEC»08»OILAC-B-L MLIB VI «2A as-MAY-76 

/ERROR MESSAGE ADDRESS TABLE 


4700 

3476 

EMAT, 

ERR 1 

4701 

3311 


ERR2 

4702 

5527 


ERRS 

4703 

5546 


ERR4 

4704 

5561 


ERR5 

4705 

5602 


ERR6 

4706 

5617 


ERR7 

4T07 

3640 


ERR10 

4710 

3655 


ERR 11 

4711 

3676 


ERR 12 

4712 

3711 


ERR 13 

4713 

3733 


ERRia 

4714 

5733 


ERR 1 5 

4713 

3777 


ERR 16 


/PROGRAM MESSAGES 

/SPECIAL CHARACTERS AND FUNCTIONBI 


/ ♦ 

/ » 

/ I 

/ l 


« CRLF 

» CR 

» UP 

« PP 


«7U 3315 

9717 0IH 

4720 1104 

4721 0503 

4722 5560 

4723 7035 

4724 0411 

4723 1401 

4726 0355 

4727 0233 

4730 1401 

4731 6170 

4732 6040 

4733 2022 

4734 1116 

4733 2403 

4736 2240 

4737 0411 

4740 0107 

4741 1617 

4742 2324 

4743 1103 

4744 5373 

4743 0000 

4746 5343 

4747 4003 

4750 1714 

4731 .2515 
4752 1623 


HEADER, TEXT •♦MAINDEC-08-DILAC-B+UA1S0 PRINTER 01 AGNOSTIC*I» 


COLUMN, TEXT '♦* COLUMNS » ' 


/MAINOEC-08-DILAC-8-L PAL10 V142A 26-MAY-T6 9148 PAGE 1-49 


SEQ 0069 


4753 

4075 

4734 

4000 

4755 

5323 

4756 

0514 

4737 

0503 

4760 

2440 

4761 

2405 

4762 

2324 

4763 

4043 

4764 

4040 

4765 

0000 

4766 

3323 

4767 

2722 

4770 

4075 

4771 

4000 

4772 

4040 

4773 

4016 

4774 

0327 

4775 

4075 

4776 

4000 

4777 

2701 

5000 

1124 

5001 

1116 

S002 

0754 

5003 

4024 

5004 

3120 

5003 

0540 

5006 

2320 

3007 

0103 

3010 

0540 

5011 

2417 

3012 

4003 

5013 

1716 

5014 

2411 

5013 

1625 

3016 

0553 

3017 

0000 

3020 

7373 

5021 

2405 

5022 

2324 

5023 

4016 

5024 

2315 

5025 

0205 

5026 

2240 

5027 

4000 

5030 

4040 

5031 

0317 

5032 

1425 

3033 

1316 

3034 

2373 

5035 

0000 

5036 

5324 

3037 

0523 

5040 

2440 

5041 

4340 


SELTST, TEXT **SELECT TEST * ' 

OSMSG1, TEXT / + SWR « / 

DSMSG2, TEXT / NEW ■ / 

WTMSG, TEXT /WAITING, TYPE SPACE TO CONTINUE*/ 


TSTND, TEXT *;»TEST NUMBER ' 


COLMN, TEXT ' C0LUMN5I' 


ETSTNO, TEXT '+TEST # ' 



/HAINOEC»0S-DILAC-B.U PAL10 Vta2A 28-MAY-T6 


9148 


PACE 1-50 


SEQ 0070 


ssas 

0000 



seaj 

5400 

PCM3G, 

TEXT 

5044 

4020 



3045 

0375 



3046 

0000 



5047 

3440 

ERR, 

TEXT 

5050 

4005 



5051 

222! 



505E 

1722 



5053 

4043 



5054 

0000 



5055 

5440 

ERRS, 

TEXT 

5056 

4000 



5057 

7303 

pasmsg, 

TEXT 

3060 

1604 



5061 

4017 



5062 

0640 



3063 

2001 



3064 

2323 



5063 

4040 



5066 

4100 



5067 

2022 

T2M1, 

TEXT 

3070 

1116 



3071 

2440 



3072 

2320 



3073 

0303 



3074 

0440 



3073 

1301 



3076 

1625 



3077 

0114 



1100 

4024 



3101 

1113 



5102 

1116 



5103 

0733 



5104 

0000 



5105 

2023 

T2M2, 

TEXT 

5106 

2440 



5107 

2327 



3110 

1124 



3111 

0310 



3112 

4064 



3113 

4023 



3114 

2040 



3113 

2417 



3116 

4023 



3117 

2401 



3120 

2224 



5121 

4024 



3122 

1113 



3123 

1116 



5124 

0733 



3123 

0000 



1126 

2025 

T2M3, 

TEXT 

3127 

2440 



3130 

2327 




/HA!NOEC«ea>DlUAC«B.L PALIS V142A 


3131 

1124 



3132 

0310 



3153 

4064 



5134 

4004 



3133 

1727 



3136 

1640 



3137 

0124 



3140 

4005 



3141 

1604 



5142 

4017 



3143 

0640 



5144 

6140 



3145 

1511 



5146 

1623 



5147 

2405 



3150 

3300 



3131 

1617 

T2EM, 

TEXT 

5152 

4015 



5153 

0524 



3154 

1017 



5153 

0440 



5156 

1706 



5137 

4024 



5160 

1115 



3161 

1116 



5162 

0740 



5163 

0126 



5164 

0111 



5165 

1401 



3166 

0214 



3167 

0533 



3170 

0000 



3171 

5320 

PRSP1, 

TEXT 

5172 

2211 



3173 

1624 



5174 

4023 



3175 

2005 



3176 

0504 



3177 

4011 



3200 

2340 



5201 

0000 



3202 

0120 

PR8P2, 

TEXT 

3203 

2022 



3204 

1730 



5205 

4000 



5206 

4040 

PR8P3, 

TEXT 

3207 

1411 



5210 

1605 



3211 

2357 



3212 

1311 



5213 

1623 



3214 

2405 



3213 

4034 



5216 

4027 



3217 

1124 




*, PC«' 

', ERROR #* 

'» * 

*>ENO OP PASS *• 

‘PRINT SPEED MANUAL TIMING** 


•PUT SWITCH fl UP TO START TIMING** 


•put switch a down at eno op i minute** 

28-MAY-T6 BIAS PAGE i«Si 


/NO method OF TIMING AVAILABLE*/ 


‘♦PRINT SPEED IS * 

•APPROX * 

* LINES/MINUTE , WITH ' 




/MAINOEC-0S«DILAC.8-L 


PALlfl V143 A 28«MAY*76 


4 1 a 8 


PAGE 1-52 


SED 0P?a 






5220 

1040 

5221 

0000 

5222 

4040 

5223 

0310 

5224 

0122 

5225 

2357 

5228 

1411 

522T 

1605 

5230 

5300 

5231 

7316 

5232 

1740 

5233 

0317 

5234 

1623 

5235 

1714 

5236 

0540 

523T 

2405 

5240 

2215 

5241 

1116 

5242 

0114 

5243 

7300 

5244 

0310 

5245 

0122 

5246 

4075 

524T 

4000 

5250 

2425 

5251 

2216 

5252 

4020 

5253 

1727 

5254 

0522 

5255 

4017 

5256 

0606 

S257 

4046 

5260 

4023 

5261 

0524 

5262 

4017 

5263 

0606 

5264 

4014 

5265 

1116 

5266 

0553 

526T 

0000 

5270 

1713 

5271 

5440 

5272 

2425 

5273 

2216 

5274 

4020 

5275 

1727 

5276 

0522 

5277 

4017 

5300 

1653 

5301 

0000 

53e2 

1713 

5303 

5440 

5304 

2305 

5305 

2440 


PRSP4, TEXT • CHARS/LINET' 


NCMSG, TEXT *;N0 CONSOLE TERMINAL! ' 


TCHAR, TEXT 'CHAR ■ ' 


T0MSG0, TEXT /TURN POWER OFF I SET OFF LINE*/ 


T0HSG1, TEXT /OK, TURN POWER ON*/ 


T0MSG2, TEXT /OK, SET PRINTER TO ON-LINE*/ 


/MAINDEC-08-OILAC-B-L PAL10 V142A 28-HAY.76 R»«8 PAGE 1-53 


SEQ 0073 



a 




5306 

2022 




5307 

1116 




5310 

2405 




5311 

2240 




5312 

2417 




5313 

4017 




5314 

1655 




5315 

1411 




5316 

1605 




5317 

5300 




5320 

1713 

T0MSGS, 

TEXT 

/OK, TRY PAPER OUT SWITCH*/ 

5321 

5440 




5322 

2422 




5323 

3140 




5324 

2001 




5325 

2005 




5326 

2240 




5327 

1725 




5330 

2440 




5331 

2327 




5332 

1124 




5333 

0310 




5334 

5300 




5335 

1713 

T0MSG4, 

TEXT 

/OK, RESTORE PRINTER TO ON-LINE*/ 

5336 

5440 




5337 

2205 




5340 

2324 




5341 

1722 




5342 

0540 




5343 

2022 




5344 

1116 




5345 

2405 




5346 

2240 




5347 

2417 




5350 

4017 




5351 

1655 




5352 

1411 




5353 

1605 




5354 

5300 




5355 

5555 

T1 MSG 1 , 

TEXT 


5336 

5555 




5357 

5540 




5360 

0000 




5361 

4011 

T1MSG2, 

TEXT 

* INCH FORM FEED--1* 

5362 

1603 




5363 

1040 




5364 

0617 




5365 

2215 




5366 

4006 




S36T 

0505 




5370 

Baa® 




5371 

5555 




5372 

5555 




5373 

5572 




5374 

0000 








/HAINDEC-0B-DILAC-B-L 

3375 2305 

3376 2440 

3377 0617 

3800 2215 

5401 4006 

3402 0505 

3403 0440 

5404 2327 

3405 1124 

5406 0310 

9407 4024 

5410 1740 

9411 4000 

5412 4040 

9413 1116 

9414 0310 

5413 0523 

9416 4046 

9417 4004 

9420 0520 

5421 2205 

5422 2323 

9423 4024 

3424 1706 

5425 4022 

3426 0523 

5427 0524 

3430 4023 

9431 2711 

5432 2403 

3433 1033 

5434 0000 


PAL 10 V142A 26-MAY-76 9148 PAGE 1-34 

T1MSG3, TEXT 'SET FORM FEED SWITCH TO ' 


T1H804, TEXT 


* INCHES I OEPRESS TOF RESET SWITCH*' 


8439 

4040 

CNVMSGi 

, TEXT 

/ / 

5436 

4000 




5417 

7200 

OR. 

TEXT 

'I* 

5440 

7300 

LF. 

TEXT 

'I* 

3441 

5300 

CRLF, 

TEXT 


5442 

4100 

FF, 

TEXT 

M' 

3443 

3377 

DUES* 

TEXT 

'♦T+' 

5444 

5300 




3445 

3623 

CNTLU# 

TEXT 

/*U+/ 

5446 

5300 




‘3447 

6063 

T1TAB, 

TEXT 

' 3 ' 

5430 

4000 




3431. 

6336 


TEXT 

'3.5' 

5432 

6500 




5433 

4064 


TEXT 

» a ' 

5454 

4000 




5433 

6556 


TEXT 

*5.3' 

3456 

6500 




3437 

4066 


TEXT 

» 6 «• 

3460 

4000 




5461 

4067 


TEXT 

' T • 

3462 

4000 




/HAINDEC-08pD!LAC-8-L 

PALI® 

V1 A2A 

28-MAY 1 

5463 

4070 


TEXT 

' 8 • 

5464 

4000 




5463 

7056 


TEXT 

'8.5' 

5466 

6500 




S46T 

6161 


TEXT 

'll ' 

5470 

4000 




5471 

6162 


TEXT 

'12 * 

5472 

4000 




3473 

6164 


TEXT 

•14 * 

5474 

4000 




3475 

0000 


0 




/ERROR 

MESSAGES 


3476 

2203 

ERR11 

TEXT 

/READY 
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SEO 0075 


/ENO OF TABLE 


3477 0104 

3500 3140 

5501 2305 

5502 2454 

5303 4020 

5504 1T2T 

5505 0522 

5506 4017 

550T 0606 

5510 0000 

5511 2203 

5512 0104 

5313 3140 

5514 2305 

3515 2454 

5316 4020 

5517 2211 

3520 1624 

5321 0522 

5322 4017 

5523 0606 

5324 4014 

5525 1116 

5326 0500 

552T 2205 

5530 0104 

5531 3140 

5332 0314 

5333 0501 

5334 2234 

5535 4020 

5336 2211 

553T 1624 

5340 0522 

5341 401T 

5542 1640 

5343 1411 

5544 1605 

5545 0000 


ERR2. 


/READY SET. PRINTER OFF LINE/ 


/READY CLEAR. PRINTER ON LINE/ 




<ms 
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SEQ 0076 


/MAINDEC-08-DILAC-B-L PAL 10 VJ42A 28-MAY-76 


5546 2205 ERR4, TEXT /READY SET, PAPER OUT/ 

5507 0104 

5550 3100 

5551 2305 

5552 2454 

5553 4020 

5554 0120 

5555 0522 

5556 4017 

5557 2520 

5560 0000 

5561 2205 ERRS, TEXT /READY NOT SET AFTER ERROR CLEARED/ 

5562 0104 

5563 3140 

5564 1617 

5565 2440 

5566 2305 

5567 2440 

5570 0106 

5571 2405 

5572 2240 

5573 0522 

5574 2217 

5575 2240 

5576 0314 

5577 0501 

5600 2205 

5601 0400 

5602 2003 ERR6, TEXT /PCLF 010 NOT CLEAR READY/ 

5603 1406 

5604 4004 

5605 1104 

5606 4016 

5607 1724 

5610 4003 

5611 1405 

5612 0122 

5613 4022 

5614 0501 

5615 0431 

5616 0000 

5617 2205 ERR7, TEXT /READY 010 NOT SET AFTER CHAR LOAD/ 

5620 0104 

5621 3140 

5622 0411 

5623 0440 

5624 1617 

5625 2440 

5626 2305 

5627 2440 

5630 0106 

5631 2405 

5632 2240 

5633 0310 

5634 0122 
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SEQ 0077 


5635 

4014 

5636 

1701 

5637 

0400 

5640 

2003 

5641 

1420 

5642 

4004 

5643 

1104 

5644 

0016 

5645 

1724 

5646 

4003 

5647 

1405 

5650 

0122 

5651 

4022 

5652 

0501 

5653 

0431 

5654 

0000 

5655 

2205 

5656 

0104 

5657 

3140 

5660 

0411 

5661 

0440 

5662 

1617 

5663 

2440 

5664 

2305 

5665 

2440 

5666 

0106 

5667 

2405 

5670 

2240 

5671 

0310 

5672 

0122 

567J 

4014 

5674 

1701 

5675 

0400 

5676 

2516 

5677 

0530 

5700 

2005 

5701 

0324 

5702 

0504 

5703 

4011 

5704 

1624 

5705 

0522 

5706 

2225 

5707 

2020 

5710 

0000 

5711 

1116 

5712 

2405 

5713 

2240 

5710 

5540 

5715 

2205 

5716 

0104 

5717 

3140 

5720 

0314 

5721 

0501 

5722 

2254 

5723 

4005 


ERR10, TEXT /PCtP 010 NOT CLEAR READY/ 


ERR 11, TEXT /READY DID NOT SET 4PTER CHAR LOAO/ 


ERR 12, TEXT /UNEXPECTED INTERRUPT/ 


ERR13, TEXT /INTER - READY CLEAR, ENABLED ( ION/ 



/MAINDEC-08-OIUC-6.L 


PAL10 V142A 28-MAY-76 


9i as 
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SEG 0078 


9723 1601 

9725 0213 

9726 0503 

5727 4036 

9730 4011 

5731 1716 

5732 0000 

5733 1617 ERR14, TEXT /NO INTER - RE*OY SET, ENABLED & ION/ 

5734 4011 

9739 1624 

9736 0522 

5737 4055 

9740 4022 

5741 0501 

3742 0431 

5743 4023 

5744 0524 

9745 5440 

3746 0516 

5747 0102 

3750 1405 

3731 0440 

5752 4640 

3733 1117 

3734 1600 

3733 1116 ERR13, TEXT /INTER - READY BET. ENABIEO BUT IOF/ 

5736 2403 

3737 2240 

3760 5940 

3761 2203 

3762 0104 

3763 3140 

3764 2305 

3763 2434 

3766 4003 

3767 1601 

3770 0214 

3771 0304 

3772 4002 

3773 2524 

3774 4011 

3773 1706 

3776 0000 

3777 2022 ERR 16. TEXT /PRINTER NOT READY/ 

6000 1116 

6001 2403 

6002 2240 

6003 1617 

6004 2440 

6003 2205 

6006 0104 

6007 3100 
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SEO 0074 


I 




/HAINDEC-raS-OXUAC-B-L PAL 10 VI A2A 2S-HAY-76 


91 48 
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SEO 0080 


o 

0000 

0100 

11100000 

llllllll 

10000000 

umiii 

liuiiii 

liiuiu 


0200 

0300 

11100000 

llllllll 

uuiiii 

liiuiu 

liiuiu 

ilium 


0400 

0300 

llllllll 

llllllll 

liuiiii 

liiuiu 

liiuiu 

liuiiii 


0600 

0700 

llllllll 

llllllll 

uuiiii 

liuiiii 

liiuiu 

liiuiu 


1000 

1100 

llllllll 

llllllll 

uuiiii 

uuim 

uuiiii 

uuiiii 

$ 

1200 

1300 

llllllll 

llllllll 

liiuiu 

liuiiii 

liiuiu 

ilium 

% 

1400 

1300 

llllllll 

llllllll 

uuiiii 

uuim 

ilium 

uuiiii 

c 

1600 

1700 

liiiiin 

liuiiii 

liiuiu 

ilium 

liiuiu 

uuiiii 


2000 

2100 

ilium 

liuiiii 

ilium 

liiuiu 

uuiiii 

UUIIII 


2200 

2300 

liiuiu 

uuiiii 

uuiiii 

uuiiii 

llllllll 

11111111 


2400 

2500 

liiuiu 

uuiiii 

liiuiu 

liiuiu 

UHH11 

11111111 


2600 

2700 

liuiiii 

liiuiu 

liiuiu 

uuiiii 

llllllll 

llllllll 


3000 

3100 

uuiiii 

uuiiii 

muni 

liiuiu 

llllllll 

llllllll 


3200 

3300 

uuiiii 

liiuiu 

iiuuti 

liiuiu 

llllllll 

11111110 


3400 

3500 

liiuiu 
in t i 111 

liiuiu 

liiuiu 

llllllll 

11111111 


3600 

3700 

liiuiu 

liiuiu 

ilium 

uiitiu 

llllllll 

llllllll 


llllllll 

Ullllll 

llllllll 

uuuu 

mum 

llllllll 

llUUll 

11111111 

mum 

UU1000 

llllllll 

Ullllll 

uuim 

lUlilU 

mu in 

llllllll 

Ullllll 

11000000 

00000000 

0000UU 

llllllll 

uuuu 

ilium 

mum 

mum 

mum 

llllllll 

ilium 

uuuu 

111101U 

uuiiii 

11111111 

uuuu 

mum 

mum 

Ullllll 

uuuu 

ilium 

10000000 

00011111 

ilium 

llllllll 

iimm 

uuuu 

UUUU 

Ullllll 

Ullllll 

uuim 

00000000 

00000001 

uuim 

liiuiu 

mum 

mum 

UUUU 

Ullllll 

llllllll 

00000000 

00000000 

00000111 

Ullllll 

uuuu 

mum 

mum 

uuuu 

Ullllll 

Ullllll 

11100000 

00000000 

00001111 

Ullllll 

uuuu 

UUUU 

lUillU 

uuim 

llllllll 

uuuu 

uuuu 

10000001 

uuuu 

Ullllll 

Ullllll 

11111111 

mum 

uuuu 

ullllll 

UUUll 

10000000 

00000000 

0000011 i 

Ullllll 

uuuu 

mum 

mum 

uuuu 

00000000 

00000000 

00000000 

00000000 

000001 1 1 

Ullllll 

uuuu 

llllllll 

111 1 til 1 

uuuu 

liiuiu 

11110000 

00000000 

00000000 

00000001 

ilium 

uuuu 

llllllll 

mum 

11111111 

uuim 

11111111 

mum 

i 0000000 

00000111 

Ullllll 

11111111 

mum 

mum 

mum 

uuim 

11111111 

mime 

00000000 

00000001 

Ullllll 

uuuu 

uuuu 

11111111 

UUUU 

00000000 

00000000 

00000000 

00000000 

00000000 

llllllll 

uuuu 

uuuu 

UUUU 

uuuu 

llllllll 

uuuu 

llllllll 

00000000 

00001111 

llllllll 

uuuu 

llllllll 

mum 

llllllll 

ilium 

uuuu 

iimm 

i 1100000 

00000) 1 1 
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SEQ 0081 


4000 1111 till 11111111 11111111 

4100 11111111 11111100 0P000000 

4200 11111111 11111111 11111111 

4300 11111 111 lllUlll llllllll 

4400 llllllll llllllll llllllll 

4300 iiHim liiitiu ilium 

4600 llllllll llllllll llllllll 
4700 llllllll llllllll llllllll 



3000 llllllll llllllll llllllll 
5100 llllllll llllllll llllllll 

3200 llllllll llllllll llllllll 
5300 llllllll llllllll llllllll 

5400 llllllll llllllll llllllll 
5300 llllllll llllllll llllllll 

5600 llllllll llllllll llllllll 
5700 llllllll llllllll llllllll 

6000 llllllll 00000000 00000000 

6100 00000000 00000000 00000000 

6200 

£ 6300 

6400 

6500 


mum 

11111111 

uuuu 

uuuu 

mum 

00000000 

00000000 

00000000 

00000000 

000000U 

llllllll 

llllllll 

Ullllll 

uuuu 

uuuu 

11000000 

00000000 

00030000 

00000000 

0000011 1 

Ullllll 

llllllll 

llllllll 

uuuu 

llllllll 

ullllll 

mum 

11110000 

00000000 

00001 111 

Ullllll 

mum 

uuuu 

11111111 

llllllll 

ullllll 

in 11 i u 

Ullllll 

uuuu 

uuuu 

Ullllll 

uuiiii 

Ulllllt 

Ullllll 

mum 

Ullllll 

u u u u 

uuuu 

uuuu 

u m ii i' 

ullllll 

mum 

ltliliu 

uuuu 

UUUll 

Ullllll 

Ullllll 

11111111 

mum 

uu mi 

uuuu 

Ullllll 

11111111 

uuuu 

uuuu 

llllllll 

11111111 

11111111 

Ullllll 

Ullllll 

llllllll 

Ullllll 

Ullllll 

uuuu 

Ullllll 

Ullllll 

Ullllll 

Iimm 

mum 

uuuu 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 


6600 

6700 


7000 

7100 

7200 

^ 7300 

f N ' 7400 

7500 


7600 

7700 




/HAJNOEC»08.OIU*C«>S«1 PAL10 


SEQ 00A2 


AUTPTR 

0010 

CHAR 

0031 

CHARS 

0032 

CHECK 

4464 

CHKNR 

011 a 

CHKOCT 

0113 

CKCNT 

003T 

CKEXIT 

3013 

CKFLAG 

0054 

CK8RV 

3000 

CK8T0P 

3015 

CLOI 

6132 

CLEI 

6131 

Cl.SK 

6133 

CNTLU 

5443 

CNVHSG 

3435 

CNVNN 

3761 

CNVRT 

3713 

COLMN 

5030 

column 

4746 

contrl 

0217 

COUNT 

0034 

COUNTS 

0035 

CR 

5437 

CRLP 

5441 

DBCE 

6576 

DBCF 

6573 

OBRD 

6372 

OBSE 

6373 

DB8K 

6371 

DBS3 

6377 

OBST 

6570 

DBTO 

6374 

DELAY 

0333 

OELAY0 

0343 

DELAYS 

0346 

DSMSGl 

4766 

D8HSGS 

4772 

EMAT 

4700 

ERR 

3047 

ERRl 

3476 

ERR10 

5640 

ERRl 1 

5653 

ERR1S 

5676 

ERR 13 

3711 

ERR 14 

' 3733 

ERR15 

5755 

ERR 16 

3777 

ERRS 

5311 

ERRS 

5527 

ERR? 

5546 

ERR5 

5561 


V142A 

28-MAY-76 

9148 
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ERR6 

3602 

M20 

0162 

PARAM 

0021 

ERR7 

5617 

M23 

0163 

PA8CNT 

0040 

ERRNM 

0024 

M25 

0164 

PASMSG 

5037 

ERROR 

4463 

MS 

0135 

PCLF 

666? 

ERRPC 

0025 

M30 

0165 

PCLP 

6666 

ERRS 

5033 

H35 

0166 

PCHSG 

5043 

ETBTNO 

3036 

M36 

0167 

PDIG1T 

0122 

EXIT 

5465 

M4 

0156 

POCT 

3665 

EXIT1 

3036 

M40 

0170 

PRINT 

4461 

EXIT2 

3047 

M36 

0171 

PRSP1 

5171 

EXITS 

3037 

M7 

0157 

PRSP2 

5202 

FF 

5442 

MIOT 

2716 

PR8P3 

5206 

GETSW 

4521 

MIOYA 

2731 

PRSP4 

5222 

GOUT 

0113 

MIOTB 

2730 

PBT 

4216 

HORX 

4326 

MIOTC 

2730 

PRTCHR 

4260 

HEADER 

0716 

mloao 

4460 

PRTCL 

4254 

HOLD 

4437 

HSGADR 

0043 

PRTCR 

4231 

HOLDCH 

3141 

MSGP7R 

3762 

PRTFF 

4246 

HUND8 

0046 

NCMSG 

5231 

PRTHDR 

4462 

IERROR 

0347 

0C78AV 

1712 

PRTLF 

4257 

IERRT 

3650 

ONES 

0044 

P8TE 

6665 

INFLAG 

3326 

0P1CHK 

3142 

PSKF 

6661 

IOTAB 

4535 

0P1CLF 

2653 

P3T8 

6664 

IOTSEL 

0030 

OPDBST 

2643 

PTRIOT 

0027 

HAVE 

3016 

0PL001 

2663 

QUES 

5443 

I8RV 

0002 

0PL002 

2707 

RCHECK 

3107 

KBTAB 

3400 

0P8CIE 

2675 

READ 

0111 

KPA 

3313 

OUT 

4022 

READ0 

4401 

KF8 

3221 

OUTCHR 

4033 

READl 

4403 

KFC 

3246 

OUTCL 

4044 

READ2 

4407 

KFD 

3262 

OUTLF 

4051 

READD 

4437 

KFE 

3276 

P10 

0130 

READS 

4451 

KFF 

3232 

P100 

0143 

READ! 

4500 

KY8DA 

3433 

P1000 

0152 

REAOU 

4454 

KY8DAA 

3422 

P12 

0131 

RERROR 

3600 

KYBDB 

3447 

P1 34 

0144 

RE8TRT 

0213 

KYBDC 

3324 

P15 

0132 

REXIT 

3017 

KYBOF 

3200 

F177 

0145 

RFLAG 

4503 

KYBD3T 

3403 

P* 

0126 

R5ET5W 

0322 

LF 

3440 

P200 

0146 

RHOLD 

3123 

LIERR 

0125 

P204 

0147 

RHOLOA 

3136 

LOAD 

4456 

P36 

0133 

RKCC 

2605 

LPCNT 

0036 

P37T 

0150 

RKRB 

2613 

LREAOT 

0124 

P40 

0134 

RKRS 

2610 

LT0Q 

0573 

P400 

0151 

RKSF 

2600 

HI 

0153 

P41 

0135 

RIA 

4062 

M100 

0172 

P35 

0136 

RLB 

4066 

Ml 2 

0160 

P37 

0137 

RLC 

0075 

M144 

0173 

P60 

0140 

RLDC 

4103 

Ms3 

0161 

P7 

0127 

RLDCC 

4104 

M177 

0174 

P72 

0141 

RLOAD 

4060 

H2 

0154 ’ 

P77 

0142 

rmload 

4105 


/MAlNDEC“0B“DILAe«S-L 

PAL 10 V142A 
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RP1 

4205 

T0O 

0552 

T278 

2075 

TERR 

2541 

RPCLF 

2646 

T0P 

0570 

T27C 

2107 

TERROR 

0063 

RPCLP 

2T02 

700 

0600 

T270 

2115 

TE8T0 

8400 

RPDIGT 

3660 

T0R 

0620 

T270A 

2122 

TEST1 

0714 

RPRHOR 

4262 

T0S 

0625 

T2TE 

2123 

TEST2 

1008 

SPRINT 

4200 

T0U 

0660 

T27TAB 

2142 

TEST20 

1280 

RP8IE 

2670 

T0V 

0707 

T27X 

2137 

TEST21 

1227 

RP8KF 

2634 

T0W 

0656 

T2A 

1015 

TEST22 

1274 

RP8T8 

2656 

T1A 

0723 

T2B 

1023 

TE8T23 

1331 

R8AVE 

3645 

T1HSG1 

5355 

T2C 

1030 

TEST24 

1400 

RT1 

4011 

T1H8G2 

5361 

T2EM 

5151 

TEST25 

1600 

RT2 

4005 

T1MSG3 

5375 

T2M1 

5067 

TEST26 

2080 

RTCF 

2623 

T1HSG4 

5412 

T2H2 

5105 

TE8T2T 

2054 

RTLS 

2631 

T1TAB 

5447 

T2M3 

3126 

TEST30 

2200 

RTPC 

2626 

T20A 

1203 

T3P A 

1047 

TESTS! 

221? 

RTSF 

2616 

7208 

1211 

T2PC 

1033 

TEST60 

2246 

RTYPE 

4000 

T20C 

1216 

T2P0 

1070 

TEST61 

2400 

SAVE 

0033 

T20D 

1222 

T?PE 

1102 

TEST62 

2450 

SAVEAC 

3156 

7218 

1232 

7281 

1132 

TEST63 

2477 

SELECT 

3034 

T21C 

1243 

T?8P 

1044 

TEXIT 

0065 

SELTST 

0755 

T210 

1247 

T2SP0 

1114 

TGETSW 

0121 

8ETSKP 

1340 

T21W 

1273 

T2SPDC 

1110 

THOLO 

0057 

START 

0210 

T22A 

1277 

T30A 

2203 

THOUS 

0047 

STARTS 

0201 

T22B 

1307 

T50M 

2210 

TK80ST 

0066 

STARTS 

0274 

T22C 

1324 

T31M1 

2240 

tkbfg 

0107 

8TART7 

0306 

T23A 

1334 

T3IM2 

2243 

TKCC 

0073 

STARTS 

0303 

T24 A 

1410 

T60A 

2250 

TKRB 

0875 

START? 

0277 

T24B 

1415 

7608 

2253 

TKRS 

0074 

STARTS 

0266 

T24C 

1417 

T60C 

2263 

TKSF 

0072 

3TARTX 

0221 

T240 

1431 

761 A 

2402 

TLDAO 

0056 

8TR0NE 

0030 

T24E 

1446 

T6l8 

2404 

tloop 

0052 

SVT3T 

4331 

T24F 

1466 

T61C 

2425 

TMIOT 

0071 

SWITCH 

0020 

T24G 

1476 

T610 

2430 

tmload 

0060 

T0AA 

0413 

T24H 

1403 

76 IE 

2436 

TPCLF 

0103 

T0AB 

0420 

T24S 

1477 

T61F 

2445 

TPCLP 

0106 

T0AC 

0403 

T24SA 

1503 

T62A 

2462 

TPFLG 

0053 

T0B 

0432 

V24S8 

1312 

T623 

2470 

TPOCT 

0123 

70C 

0435 

T20SC 

1304 

T63A 

2516 

TPRHDR 

0062 

T0E 

0456 

T25A 

1630 

T63B 

2507 

TPRINT 

0061 

T0F 

0461 

T25B 

1663 

T63C 

2526 

TPSIE 

0105 

T0H 

0472 

TS5C 

1701 

T6S0 

2532 

TPSKF 

0102 

T0I 

0475 

T2S0 

1702 

T63E 

2536 

TP8TB 

0104 

T0K 

0510 

T25E 

1715 

TA8PTR 

0001 

TREAD 

4400 

T0L 

0517 

T25F 

1727 

TAT 

4600 

TREAOB 

0112 

T0H 

0332 

T25G 

1740 

TCHAR 

5244 

TRONE 

0051 

T0MIQT 

0536 

7258 

1745 

TCHECK 

0064 

TSEL 

3465 

T0HSG0 

5250 

T26A 

2003 

TCHKNR 

4520 

TSEL1 

3542 

T0M8G1 

5270 

T26B 

2005 

TCKOUT 

4510 

TSEL2 

3552 

T0HSG2 

5302 

T26C 

2007 

TCKSRV 

0120 

TSELCT 

0067 

T0HSG3 

5320 

T26D 

2037 

TCNVRT 

0117 

T8ELX 

3555 

T0MSG4 

3335 

T26TAB 

2047 

tdelay 

0116 

T8TNH 

0023 

T0N 

0503 

7 27 A 

2057 

TENS 

0045 

TSTNO 

5020 


SEO 0083 





SEQ 008(1 
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TSTPTR 

0042 

TTAT 

0070 

TTCP 

0077 

TTLS 

0101 

TTPC 

0100 

TT8EL 

0110 

TT8F 

0076 

TTVIN 

3325 

TTYPE 

0055 

TYPE 

4455 

WIDTH 

0026 

WTHSG 

4777 


ERRORS OETECTEDI 0 
LINKS GENERATED! IS 
RUN-TIME) 16 SECONDS 

3K CORE USED 









